use Tk; use Tk::LabFrame; use strict; my $mw = MainWindow->new(-title => 'LabFrame example') my $lf = $mw->LabFrame(-label => "This is the label of a LabFrame", -labelside => 'acrosstop')->pack; $lf->Text(qw/-width 40 -height 5/)->pack; MainLoop;
This code produces the widget shown in Figure 23-14.
LabFrame supports the same options as the Frame widget, plus:
Copyright © 2002 O'Reilly & Associates. All rights reserved.