in reply to Perl::Tk, a question about pack geometry manager

You can use Frames to assist in positioning: 
#!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;

[download]

Replies are listed 'Best First'.
Re^2: Perl::Tk, a question about pack geometry manager
by Anonymous Monk on Oct 23, 2009 at 11:26 UTC
    Modified to do with Tk::grid manager
    #!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;

    [download]
[reply]
[d/l]
Re^2: Perl::Tk, a question about pack geometry manager
by Anonymous Monk on Oct 23, 2009 at 10:10 UTC
    Thanks a lot! It works!
[reply]

In Section Seekers of Perl Wisdom