summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/site/lib/Tk/demos/LabEnLabRad.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/Tk/demos/LabEnLabRad.pm')
-rw-r--r--Master/tlpkg/tlperl/site/lib/Tk/demos/LabEnLabRad.pm41
1 files changed, 41 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/Tk/demos/LabEnLabRad.pm b/Master/tlpkg/tlperl/site/lib/Tk/demos/LabEnLabRad.pm
new file mode 100644
index 00000000000..c49ef0b1881
--- /dev/null
+++ b/Master/tlpkg/tlperl/site/lib/Tk/demos/LabEnLabRad.pm
@@ -0,0 +1,41 @@
+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;