Re: chez moi

exact autant pour moi. oups....

sub labelframe_buttons {
my ($lf, $cb, $var_ref) = @_;

foreach my $child ($lf->children) {
next if $child == $cb;
if ($$var_ref) {$child->configure(qw/-state normal/);
} else {$child->configure(qw/-state active/);
}
}

}