Bonjour,
Dans mes programmes, les options -background et -troughcolor des Scrollbars sont sans effet.
Je ne vois pas l'erreur que je fais, il doit y avoir quelque chose que je n'ai pas compris. Voici un exemple que j'espère assez court :
La partie qui coulisse et le fond sur lequel ça coulisse n'est ni bleue ni bleu-clair. J'ai essayé avec d'autres couleurs (green, red, etc.) et j'ai toujours le même problème.
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 #!/perl/bin/perl use warnings; use Tk; $mw = MainWindow->new ; $mw->title("test couleurs"); $lb=$mw->Scrolled("Listbox",-scrollbars=>'oe', -width=>30)->pack( -fill=>'both', -expand=>1, -ipadx=>5, -ipady=>20, -padx=>5, -pady=>5); $lb->Subwidget("yscrollbar")->configure(-background => "blue", -troughcolor => "lightblue") ; $lb->insert('end',qw/ a b c d e f g h i j k l m n o p q r s/); MainLoop;
Merci d'avance.
Nibroc
Partager