Australian Personal Computer 2004 July/APC0407D2.iso/workshop/apache/files/ActivePerl-5.6.1.638-MSWin32-x86.msi/_84180addf3c5d1ad8a7e48be88813652

Text File | 2004-04-13 | 316 b | 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;