Discussion :

[bennyben87]

Bonjour,

Ma question vous paraitra peut être bête, mais je n'ai hélas rien trouvé en cherchant sur le net.

En fait j'ai développé une interface graphique en perl. Certaines opération sont effectués et j'aimerai que des informations utilisateurs soient écrite sur un widget Text().

Jusque là no problem...

Seulement, j'aimerai que les messages signifie une erreur en rouge et une info positive en verte.
Comment changer de couleur mon texte à chaque insert?

J'ai pensé creer deux polices avec:

Code :

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

1
2
 
$main->fontCreate("C_vbig", -family=>'helvetica', -size=>'24', -weight=>'bold');

Mais il ne me semble pas qu'il y ait d'option sur la couleur.

Si vous avez des idées...

Merci d'avance.

[djibril]

Il faut que tu te crées des tags; Un tag pour tes messages d'erreur et un tag pour tes messages positifs. Ainsi, tu pourras Configurer tes deux tags comme tu le souhaites (gras, couleurs, etc) et les appeler quand tu en as besoin.

Voici un exemple de code où je crée 2 tags et en prime, j'utilise aussi ton font que tu as crées. On peux utiliser les 2 .

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 $widget_texte = $fenetre_principale->Text( )->pack( );
 
# TAGS et polices
$fenetre_principale->fontCreate("C_vbig", -family=>'helvetica', -size=>'24', -weight=>'bold');
$widget_texte->tagConfigure('Erreur', 
  -background => '#E3E3E3',
  -foreground => 'red',
  -font       => 'C_vbig',
);
$widget_texte->tagConfigure('Positif', 
  -foreground => 'green',
);
 
$widget_texte->insert('end', "Attention, erreur systeme\n",'Erreur');
$widget_texte->insert('end', "probleme 1\n",'Erreur');
$widget_texte->insert('end', "bonjour\n");
$widget_texte->insert('end', "bye\n");
$widget_texte->insert('end', "Tout est ok\n", 'Positif');
 
 
MainLoop;

Juge du résultat

[bennyben87]

Ok super!
Je ne connaissait pas cette fonction.

Merci beaucoup en tout cas.
Bonne journée.