Discussion :

[Eames38]

Bonjour,

Par inadvertance, j'ai posté la même question sur le forum Perl. Je m'en excuse.

J'essai de personnaliser mon application, mais je bute sur la police des widgets. Je n'arrive pas à trouver comment changer leur police à part pour la zone de texte ROtext (et Text aussi d'ailleurs). Donc je voulais savoir comment faire, par exemple pour un Label.

Merci d'avance pour vos réponses.

[djibril]

Bonjour,

Dans la FAQ, je n'ai pas eu le temps d'en parler, soit par temps et surtout par oubli. C'est la raison pour laquelle je demande aux gens de faire des demandes et propositions dans le thread de la FAQ/Tk. Si personne ne fait de demande, difficile d'y penser .

Pour ton label et la plupart des widgets, pour modifier la police, il faut uitliser les options -font.

Voici un exemple avec le widget Label :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#!/usr/bin/perl
use strict;
use warnings;
 
use Tk;
 
my $fenetre_principale = MainWindow->new( 
  -title => 'Text',
);
 
my $label1 = $fenetre_principale->Label( 
  -text => 'Verdana 10 italic',
  -font => '{Verdana} 10 {italic}',
)->pack();
 
my $label2 = $fenetre_principale->Label( 
  -text => 'Times New Roman 12 normal',
  -font => '{Times New Roman} 12 {normal}',
)->pack();
 
my $label3 = $fenetre_principale->Label( 
  -text => 'Arial 18 bold',
  -font => '{Arial} 18 {bold}',
)->pack();
 
 
 
MainLoop;