diff options
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.pl | 13 |
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; |