Perl/Tk taille du texte dans un widget Text

Question

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.

philtrain · Answer

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+

Perl/Tk taille du texte dans un widget Text

1 réponse

Discussions similaires

Newsletters