home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Netrunner 2004 October
/
NETRUNNER0410.ISO
/
regular
/
ActivePerl-5.8.4.810-MSWin32-x86.msi
/
_6d5d4305f16aaf27f97ff28ee416f15f
< prev
next >
Wrap
Text File
|
2004-06-01
|
316b
|
14 lines
# 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;