Perl/Tk taille du texte dans un widget Text

Fermé
pops - 8 nov. 2004 à 16:19
 pops - 10 nov. 2004 à 11:09
Une question simple et pourtant...

Je n'arrive pas à contrôler la taille du texte que j'insère dans un widget Text :

my $texte=$mw->Text()->pack();
$texte->tag('configure','H1',-foreground=>'blue',-font=>'helvetica',
			-justify=>'center',-relief=>'sunken',-spacing1=>10);
$texte->insert('end',"Mon texte à saisir",'H1');


Qqn sait-il comment on fait ? Ca doit tout de même être possible... je ne trouve nulle part.

Merci.

1 réponse

Utilisateur anonyme
8 nov. 2004 à 19:55
bonjour,

il faut définir la fonte :
par exemple:
$main->fontCreate("C_vbig", -family=>'helvetica', -size=>'24', -weight=>'bold');
ou C_vbig est le nom donné à la fonte qui est utilisé ensuite dans le widget

$texte->tag(qw/configure verybig -font C_vbig/);

a+
0
Merci philtrain, tu mets fin à d'interminables heures de tourment...

A+
0