header et itemStyle perl/Tk
Bonjour, je dois reprendre un code déja existant pour générer une interface graphique. Le morceau de code suivant sert a afficher des boutons dans un header. J'aimerai changer la couleur du header pour l'accorder avec celle des boutons. Cependant je ne comprends pas comment marche ces header et je n'ai rien trouvé dans la doc a ce sujet. Si qqn peut m'éclairer....
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| my $headerStyle = $cellList -> ItemStyle(
'window',
-padx => 1,
-pady => 2,
);
for ( 0 .. 2 ) {
#fond ou se trouve Library Cells Type
$sortBtn[$_] = $cellList -> Button(
-relief => 'flat',
#-bg => '#D8D8D8',
-bg => 'Light blue',
-fg => 'black',
-text => $sortBtnText[$_] . ' ',
-anchor => 'w',
-padx => 0,
-pady => 0,
-command => [ \&sortCells, $_ ],
);
$cellList -> header(
'create', $_,
-itemtype => 'window',
-widget => $sortBtn[$_],
); |
