#!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',)->grid( -row => 0, -column => 0 );
my $ne = $tf->Scrolled('Pane', Name => 'NE', -scrollbars => 'se',)->grid( -row => 0, -column => 1 );
my $sw = $bf->Scrolled('Pane', Name => 'SW', -scrollbars => 'se',)->grid( -row => 1, -column => 0 );
my $se = $bf->Scrolled('Pane', Name => 'SE', -scrollbars => 'se',)->grid( -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;