[Perl/TK] widget Scrolled changer de couleur entre chaque ligne de l'insert
bonjour,
dans le cadre d'un petit programme personnel, je lance via la fenêtre principale, une autre fenêtre comprenant une scrollbar qui affiche le contenu d'un fichier.
j'arrive a afficher correctement dans ma fenêtre, aucun soucis avec cela.
par contre, j'aimerai réussir à la rendre plus lisible.
comme on peut le voir assez régulièrement sur des sites internet, j'aimerai changer entre chaque ligne, soit de couleur de texte ou de fond. ou encore de gras à non-gras.
bref, rendre la lecture du tableau facilité.
actuellement, j'en suis à :
Code:
1
2
3
4
5
6
7
8
9
10
11
| my $fen2 = MainWindow->new(-foreground => $foreground ,-background => $background);
$fen2->title('Champions - '.$server);
my $scroll = $fen2->Scrolled('Text', -scrollbars => 'osoe',-foreground => $foreground ,-background => $background)->pack( );
my $server2 = $dir."/Db/Champions_".$server.".db";
open(FIC,$server2);
while ( <FIC> ) {
if ( $_ =~ /^=::=(.*)=::=(.*)=::=(.*)=::=(.*)=::=(.*)=::=(.*)=::=(.*)=::=$/ ) {
$scroll->insert('end', $1."\t: ".$7."\t: ".$2." ( ".$3." - ".$4." - ".$5." - ".$6." )\n");
}
}
close(FIC); |
j'ai essayé de changer diverses choses, genre définir le foreground et le background dans le "insert" ou de changer la couleur de texte via un "configure" si je suis sur une ligne paire ou impaire, bref, j'ai essayé diverses solutions et rien trouvé.
quelqu'un aurait il une idée ?
cordialement
ours
