Opened by perln00b at 2010-01-20 18:33
Hallo,
probiers mal so: -variable muss bei allen Buttons auf die gleiche Referenz verweisen. - Zumindest wenn die Buttons unterschiedliche Zustände repräsentieren, die sich gegenseitig ausschliessen.
Gruß, Christoph
probiers mal so: -variable muss bei allen Buttons auf die gleiche Referenz verweisen. - Zumindest wenn die Buttons unterschiedliche Zustände repräsentieren, die sich gegenseitig ausschliessen.
Gruß, Christoph
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use strict;
use warnings;
use Tk;
my $mw = tkinit();
my @radiobuttons;
my $var;
for my $v( 1 .. 5 ) {
my $rb = $mw->Radiobutton( -variable => \$var, -text => $v, -value => $v );
$rb->pack;
push @radiobuttons, $rb;
}
$radiobuttons[3]->select;
MainLoop;