use Tk;
use Tk::HList;
use Tk::Pane;

use strict;

my $Window = MainWindow->new();
$Window->geometry("+0+0");
$Window->maxsize(1000,1200);
$Window->minsize(400,300);
    
my $tab = $Window;

my $scroll = $tab->Scrolled('Pane',
                         -sticky => 'news',
                         -scrollbars => 'osoe',
    );
$scroll->pack;

my $pane = $scroll->Subwidget("scrolled");

my $grid = $pane->HList(
    -columns => 13,
    -width => 0, # Causes scrollbar to appear
    -height => 0 # Causes scrollbar to appear 
    );

$grid->pack();
$scroll->pack(-expand => 1, -fill => 'both');

foreach my $row (0..10)
{
    $grid->addchild("");
    
    foreach my $col (0..12)
    {
        my $wid = $grid->Entry(
            -text => "Whatever",
            -width => 0,
            );
        $wid->pack;

        $grid->itemCreate
            ($row, $col,
             -itemtype => 'window',
             -widget => $wid);
    }
}

#$pane->configure(-height => '1000', -width => '1000'); # Works, but should be handled by pack

MainLoop;