use Tk;
use Tk::Pane;

$mw = MainWindow->new;
$graph_pane = $mw->Scrolled('Frame',
        -scrollbars => 'osoe',
        )->pack(
        -fill => 'both',
        -expand => 1,
        );
for $i (0 .. 2){
        for $j (0 .. 3){
                $c=$graph_pane->Canvas(
                        -width    => 250,
                        -height   => 100,
                        -background => 'white',
                        )->grid(
                        -row => $i,
                        -sticky => "nsew",
                        -column => $j,
                        );
                $c->createText(10,10,
                        -text => $i . ',' . $j,
                        -font   => "{Arial} 8 bold",
                        );
        }
}
($col, $row) = $graph_pane->gridSize( );
warn($col);
warn($row);

MainLoop;

##</code><code>##

$graph_pane = $mw->Frame( 

##</code><code>##

$graph_pane = $mw->Scrolled('Frame',
        -scrollbars => 'osoe',