# Class LabeledRadiobutton
package Tk
::LabRadiobutton
;
$VERSION = '3.009'; # $Id: //depot/Tk8/Tk/LabRadio.pm#9 $
Construct Tk
::Widget
'LabRadiobutton';
# Although there is no fundamental reason why -radiobuttons
# should be fixed at create time converting to METHOD form
# is extra work an this can serve as an example of CreateArgs
my ($package,$parent,$args) = @_;
$parent->BackTrace("Must specify -radiobuttons for $package")
unless (defined $args->{'-radiobuttons'});
return $package->SUPER::CreateArgs
($parent,$args);
$cw->SUPER::Populate
($args);
# LabeledRadiobutton(s) constructor.
# Advertised subwidgets: the name(s) of your radiobutton(s).
foreach $rl (@
{$args->{'-radiobuttons'}})
my $r = $cw->Component( Radiobutton
=> $rl,
$r->pack(-side
=> 'left', -expand
=> 1, -fill
=> 'both');
$cw->{Configure
}{-value
} = $rl;
$cw->BackTrace('No buttons') unless (@widgets);
$cw->ConfigSpecs('-variable' => [ \
@widgets, undef, undef, \
$cw->{Configure
}{-value
} ],
'-radiobuttons' => [ 'PASSIVE', undef, undef, undef ],
'-value' => [ 'PASSIVE', undef, undef, $cw->{Configure
}{-value
} ],
'DEFAULT' => [ \
@widgets ]