tk - checkbuttons abfragen?

Hallo,

ich habe folgendes Tk Menü mit Checkbuttons:

....
....
$RegExpr_Modifier = $frame2->Menubutton(-text => 'Schalter',
-font => $font,

)->pack(-side => 'left');
@modifier = ("a",
"b",
"c",
"dl",
"e",
"f");

foreach (@modifier) {
$cbs{$_} = $RegExpr_Modifier->checkbutton(-label => $_,
-font => $font);
}
....
....

wie kann ich abfragen welche gesetzt sind?

Re: tk - checkbuttons abfragen?

Gerhard Wolf schrieb:
> Hallo,
>
> ich habe folgendes Tk Menü mit Checkbuttons:
>
> ....
> ....
> $RegExpr_Modifier = $frame2->Menubutton(-text => 'Schalter',
> -font => $font,
>
> )->pack(-side => 'left');
> @modifier = ("a",
> "b",
> "c",
> "dl",
> "e",
> "f");
>
> foreach (@modifier) {
> $cbs{$_} = $RegExpr_Modifier->checkbutton(-label => $_,
> -font => $font);
> }
> ....
> ....
>
> wie kann ich abfragen welche gesetzt sind?
Hallo,

z.B. so:


$cbs{$_} = $RegExpr_Modifier->checkbutton
( -label => $_,
-command => sub {print Dumper \%values},
-variable => \($values{$_}||=0),
# -onvalue => 'foo',
# -offvalue => 'bar',
);

perldoc Tk::Checkbutton

Grüße, Christoph


--

perl -e "print scalar reverse q/ed.enilno@ergn.l.hc/"