in reply to Re: Background Color - Tk Checkbutton
in thread Background Color - Tk Checkbutton

It doesn't work.

The background of the widget is always gray but the box itself changes from white to gray upon mouse hover.

  • Comment on Re^2: Background Color - Tk Checkbutton

Replies are listed 'Best First'.
Re^3: Background Color - Tk Checkbutton
by shmem (Chancellor) on Jul 12, 2010 at 08:51 UTC
[reply]

      There is nothing uniqe in the code, but I'll post it anyhow.

      my $cb_update_actual    = $FrameDataToAnalyze -> Checkbutton(    -text
+=>"",
                                -offvalue=>0,
                                -onvalue=>1,
                                -command=> sub {
                                    if ($UpdateActual) {
                                        $entry_actual_value->configure
+(-state=>"normal");
                                    } else {
                                        $entry_actual_value->configure
+(-state=>"disabled");
                                    }
                                },
                                -variable=>\$UpdateActual);
$cb_update_actual -> select();

      [download]
[reply]
[d/l]

        Well, in the code you posted there's no colour specification whatsoever.

        Doesn't 

        my $cb_update_actual    = $FrameDataToAnalyze -> Checkbutton(
    ...
);
$cb_update_actual->configure(
    -activebackground => $cb_update_actual->cget('-background'),
    -activeforeground => $cb_update_actual->cget('-foreground'),

);

        [download]

        do the trick?

        What is it that keeps changing? is it $FrameDataToAnalyze or $cb_update_actual ?

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom