1 files changed, 41 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/demos/LabEnLabRad.pm b/Master/tlpkg/tlperl/lib/Tk/demos/LabEnLabRad.pm
new file mode 100755
index 00000000000..c49ef0b1881
--- /dev/null
+++ b/Master/tlpkg/tlperl/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;