#!perl use strict; use Tk; my $mw = tkinit( -title => 'Tk::Pane example'); my $bf = my $tf = $mw->Frame(-bg=>'yellow')->grid( -row => 2, -column +=> 2 ); my $nw = $tf->Scrolled('Pane', Name => 'NW', -scrollbars => 'se',)->gr +id( -row => 0, -column => 0 ); my $ne = $tf->Scrolled('Pane', Name => 'NE', -scrollbars => 'se',)->gr +id( -row => 0, -column => 1 ); my $sw = $bf->Scrolled('Pane', Name => 'SW', -scrollbars => 'se',)->gr +id( -row => 1, -column => 0 ); my $se = $bf->Scrolled('Pane', Name => 'SE', -scrollbars => 'se',)->gr +id( -row => 1, -column => 1 ); 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^2: Perl::Tk, a question about pack geometry manager
by Anonymous Monk
in thread Perl::Tk, a question about pack geometry manager
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |