blob: c5f09f88bcad26e7c3da6af7a03c2012d83fc60e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
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;
|