summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/labframe.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/labframe.pl')
-rw-r--r--Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/labframe.pl13
1 files changed, 13 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/labframe.pl b/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/labframe.pl
new file mode 100644
index 00000000000..c5f09f88bca
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/labframe.pl
@@ -0,0 +1,13 @@
+# LabFrame, frame with embedded label.
+
+use Tk;
+use Tk::LabFrame;
+use Tk::LabEntry;
+
+my $test = 'Test this';
+
+my $top = MainWindow->new;
+my $f = $top->LabFrame(-label => "This is a label", -labelside => "acrosstop");
+$f->LabEntry(-label => "Testing", -textvariable => \$test)->pack;
+$f->pack;
+MainLoop;