Options de couleur des Scrollbars
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 :
Code:
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; |
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.
Merci d'avance.
Nibroc
