LabFrame(3pm) | User Contributed Perl Documentation | LabFrame(3pm) |
Tk::LabFrame - labeled frame.
use Tk::LabFrame;
$f = $parent->LabFrame(?-label=>text, -labelside=>where, ...?);
LabFrame is exactly like Frame and additionally allows one to add a label to the frame.
LabFrame supports the same options as the Frame widget.
Additional options of LabFrame are:
See "Subwidget" in Tk::mega how to use advertised widgets.
Run the following test program to see this in action:
use strict; use Tk; require Tk::LabFrame; require Tk::LabEntry; my $test = 'Test this'; my $mw = Tk::MainWindow->new; my $f = $mw->LabFrame(-label => "This is a label", -labelside => "acrosstop"); $f->LabEntry(-label => "Testing", -textvariable => \$test)->pack; $f->pack; Tk::MainLoop;
Perhaps LabFrame should be subsumed within the generic pTk labeled widget mechanism.
Rajappa Iyer rsi@earthling.net
This code is derived from LabFrame.tcl and LabWidg.tcl in the Tix4.0 distribution by Ioi Lam. The code may be redistributed under the same terms as Perl.
2018-11-01 | perl v5.28.0 |