Discussion :

[ours_en_pluche]

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

[djibril]

Voici comment on passe des arguments :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

-command => [\&actdesact, 'highlight_DBus' ],

confère la FAQ Perl/Tk

[ours_en_pluche]

ah oui, autant pour moi

merci de la rapidité de ta reponse.

cordialement

ours_en_pluche

[djibril]

N'oublie pas le tag résolu !