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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 :

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