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

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]

Replies are listed 'Best First'.
Re^5: Background Color - Tk Checkbutton
by shmem (Chancellor) on Jul 12, 2010 at 09:17 UTC

    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]

      No colur specification because I still don't know how to get what I want... ;-)

      The box where you put the 'x' of the Checkbutton changes.

[reply]

        Well, it doesn't do that on my system. Can't help anymore, I'm afraid; since 

        use Data::Dumper;
print Dumper [$cb_update_actual ->configure];

        [download]

        doesn't show anything related to blinkensquare, that behavior must be buried in some "no user-serviceable parts" section...

[reply]
[d/l]

In Section Seekers of Perl Wisdom