Tk menu checkbutton select()

[xwax]

This exact question was asked in the following thread, but no answer was posted.

thread219-1283293

Can anyone please post the solution?

 

[Kirsle]

use Tk;

my $mw = MainWindow->new;

my $colorRed = 0;
my $colorGrn = 1;
my $colorBlu = 0;
my $colorYlw = 1;

my $menu = $mw->Menu (-type => 'menubar');
$mw->configure (-menu => $menu);

my $file = $menu->cascade (-label => '~Colors');

my $chk1 = $file->checkbutton (
   -label    => '~Red',
   -variable => \$colorRed,
   -onvalue  => 1,
   -offvalue => 0,
);

my $chk2 = $file->checkbutton (
   -label    => '~Green',
   -variable => \$colorGrn,
   -onvalue  => 1,
   -offvalue => 0,
);

my $chk3 = $file->checkbutton (
   -label    => '~Blue',
   -variable => \$colorBlu,
   -onvalue  => 1,
   -offvalue => 0,
);

my $chk4 = $file->checkbutton (
   -label    => '~Yellow',
   -variable => \$colorYlw,
   -onvalue  => 1,
   -offvalue => 0,
);

$file->separator;

my $exit = $file->command (
   -label => 'E~xit',
   -command => sub { exit; },
);

MainLoop;

Does this work?

-------------
Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'

 

[xwax]

ThanX

Yes, that works. But, I suppose the greater question is why can I do this ($mw -> as parent)...

use Tk;

my $mw = tkinit;

my $cb = $mw -> Checkbutton(-text => 'Word Wrap') -> pack;
$cb -> select;

MainLoop;

...but not this ($mbar -> as parent - GENERATES ERROR)...

use Tk;

my $mw = tkinit;

my $mbar = $mw -> Menu();
$mw -> configure(-menu => $mbar);

my $format = $mbar -> cascade(-label=>"Format", -underline=>0, -tearoff => 0);
my $cb = $format -> checkbutton(-text => 'Word Wrap');
$cb -> select;

MainLoop;

Maybe there is a way to reference $cb through the cget or entrycget methods. ??

 

[Kirsle]

Hm, actually I didn't know that select() was a method until just now.

I always selected/unselected a box by changing the variable.

$var = 1;
$cb = $mw->checkbutton (-variable => \$var, -onvalue => 1, -offvalue => 0);

# uncheck the box
$var = 0;

# check it again
$var = 1;

At any rate, it appears that Tk::Menu::checkbutton doesn't have these convenience methods built in, so you'll have to just switch the variable yourself.

-------------
Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'

 

[xwax]

Boolean...
...just what I was looking for.

ThanX, Kirsle

 

[Kirsle]

It's not necessarily boolean, just the "onvalue" versus the "offvalue" i.e.

checkbutton (
   -onvalue => "yes",
   -offvalue => "no",
);

# if the var == yes, box is checked, otherwise unchecked

-------------
Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'

 

[xwax]

Yes, you are right.

My usage just utilizes the default behavior of the on/off value, so this works fine for me. ThanX again.

Code Snippets:

our $wrap = 0;

...

our $format = $menu -> cascade(
    -label     => 'Format',
    -tearoff   => 0,
    -underline => 0,
    -menuitems => [
        [checkbutton => 'Word Wrap', -command  => \&format_wrap,
                                     -variable => \$wrap],
        [command     => 'Font',      -command  => \&format_font],
    ]
);

...

sub format_wrap {
    $txt -> configure(-wrap => $wrap ? 'word' : 'none');
}