[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / sun4-solaris / Tk / demos / widtrib / labframe.pl

# 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;
Commit	Line	Data
86530b38 AT	1	# LabFrame, frame with embedded label.
	2
	3	use Tk;
	4	use Tk::LabFrame;
	5	use Tk::LabEntry;
	6
	7	my $test = 'Test this';
	8
	9	my $top = MainWindow->new;
	10	my $f = $top->LabFrame(-label => "This is a label", -labelside => "acrosstop");
	11	$f->LabEntry(-label => "Testing", -textvariable => \$test)->pack;
	12	$f->pack;
	13	MainLoop;