• [^] # Re: chez moi

    Posté par . En réponse au message Checkbutton. Évalué à 1.

    AMHA ce n'est pas la propriété -state qu'il faut changer (ca change juste le fond de couleur)

    mais plutot un truc genre -variable checked

    j'ai pas trouvé, par contre j'ai trouvé :
    http://lionel.romain.free.fr/checkbutton.html

    et mon code fait "presque" ce que tu veux

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

    foreach my $child ($lf->children) {
    next if $child == $cb;
    if ($$var_ref)
    {
    $child->configure(-variable => $var_ref);
    }
    else
    {
    $child->configure(-variable => $var_ref);
    }
    }

    }
    [...]
    $cb = $lf2->Checkbutton(
    -text => 'Globale option',
    -variable => \$lfdummy2,
    -onvalue => '1',
    -offvalue => '0',
    -command => sub {&labelframe_buttons($lf2, $cb, \$lfdummy2)},
    -padx => 0,
    );



    une hypothese sur ce que je viens de trouver :
    on a peut-etre un probleme d'heritage.
    les boutons option1 à 3 sont les fils du bouton "global"

    du coup la commande labelframe_buttons est peut-etre repercutée sur les actions des fils.