envoi d argument dans une commande d un CheckButton
bonjour,
j ai dans un prog une cinquantaine de checkbutton
hors pour eviter d avoir 50 sub qui ne font que changer d etat de 0 a 1, j essaie d avoir tout dans la meme sub, et d envoyer en argument ma variable.
le code d un de mes checkbuttons est ainsi :
Code:
1
2
3
4
5
6
7
| $hl -> Checkbutton (
-text => 'Highlight',
-command => \&actdesact('highlight_DBus') ,
-variable => \$conf{'highlight_DBus'},
-bg => $col_bg,
-fg => $col_fg
) -> place(-x => 60, -y => 80); |
hors de cette maniere, perl/tk me renvoie une jolie erreur :
Citation:
clara@home:~/.appli_perl_tk/Tk$ perl appli_CD_Gui.pl
Tk::Error: Odd number of args to Tk::Checkbutton->new(...)
Tk callback for .
Tk callback for .notebook.infos
Tk callback for .notebook.highlight
Tk::Widget::new at /usr/lib/perl5/Tk/Widget.pm line 164
Tk::Widget::__ANON__ at /usr/lib/perl5/Tk/Widget.pm line 256
Odd number of args to Tk::Checkbutton->new(...)
at appli_CD_Gui.pl line 134
si je retire mon argument, je n ai plus de soucis, j ai essayé aussi d exempté les parentheses mais sans plus de resultat
l un d entre vous aurez t il deja eu ce cas ??
cordialement
ours_en_pluche
