#!perl use strict; use Tk; my $mw = tkinit( -title => 'Tk::Pane example'); my $tf = $mw->Frame->pack; my $bf = $mw->Frame->pack; my $nw = $tf->Scrolled('Pane', Name => 'NW', -scrollbars => 'se',)->pa +ck( -side => 'left'); my $ne = $tf->Scrolled('Pane', Name => 'NE', -scrollbars => 'se',)->pa +ck( -side => 'left'); my $sw = $bf->Scrolled('Pane', Name => 'SW', -scrollbars => 'se',)->pa +ck( -side => 'left'); my $se = $bf->Scrolled('Pane', Name => 'SE', -scrollbars => 'se',)->pa +ck( -side => 'left'); my $nwl = $nw->Label( -text => 'NW')->pack; my $nel = $ne->Label( -text => 'NE')->pack; my $swl = $sw->Label( -text => 'SW')->pack; my $sel = $se->Label( -text => 'SE')->pack; MainLoop;
In reply to Re: Perl::Tk, a question about pack geometry manager
by keszler
in thread Perl::Tk, a question about pack geometry manager
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |