home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Netrunner 2004 October
/
NETRUNNER0410.ISO
/
regular
/
ActivePerl-5.8.4.810-MSWin32-x86.msi
/
_c5524d73789766e591dce4cb48d71dff
< prev
next >
Wrap
Text File
|
2004-06-01
|
2KB
|
42 lines
package Tk::LabeledEntryLabeledRadiobutton;
require Tk::Frame;
use vars qw($VERSION);
$VERSION = '4.004'; # $Id: //depot/Tkutf8/demos/demos/LabEnLabRad.pm#4 $
use base qw(Tk::Frame);
require Tk::LabEntry;
require Tk::LabRadio;
Construct Tk::Widget 'LabeledEntryLabeledRadiobutton';
sub Populate
{
# LabeledEntryLabeledRadiobutton(s) constructor.
#
# Advertised subwidgets: labeled_entry, labeled_radiobutton.
my($cw, $args) = @_;
my $e = $cw->Component(LabEntry => 'labeled_entry');
$e->pack(-side => 'left', -expand => 1, -fill => 'both');
my $r = $cw->Component(LabRadiobutton => 'labeled_radiobutton',
-radiobuttons => delete $args->{'-radiobuttons'}
);
$r->pack(-side => 'left', -expand => 1, -fill => 'both');
$cw->ConfigSpecs(-entry_label => [ Tk::Configure->new($e,'-label'), undef, undef, 'Entry' ],
-radio_label => [ Tk::Configure->new($r,'-label'), undef, undef, Choose ],
-entry_variable => [ Tk::Configure->new($e,'-textvariable'), undef, undef, \$cw->{Config}{-text} ],
-radio_variable => [ Tk::Configure->new($r,'-variable'), undef, undef, undef ],
-indicatoron => [ 'labeled_radiobutton' , undef, undef, undef ],
DEFAULT => [ ['labeled_entry','labeled_radiobutton']],
);
$cw->Delegates(DEFAULT => 'labeled_entry');
} # end LabeledEntryLabeledRadiobutton(s) constructor
1;