#!/usr/local/bin/perl -w
use strict;
use Tk;
use Tk::Pane;

my $mw = Tk::MainWindow->new;

my $pane = $mw->Scrolled('Pane', Name => 'fred',
	-scrollbars => 'soe',
	-sticky => 'we',
	-gridded => 'y',
);

for (0..30) {
	my $r = int($_ / 8);
	my $c = int($_ % 8);
	my $b = $pane->Button(-text => 'hello ' . $_);
	$b->grid(-padx => 10, -pady => 10,
		-row => 2 * $r + $c % 2,
		-column => 2 * $c + $r % 2
	);
}

$pane->Label(
	-text => "qwertyriuoeutroe gjhfjghifd gfojgof\n fgdhgfhjds gfhjdgfhjds\nd\n"
)->grid(
	-padx => 10,
	-pady => 10,
	-row => 2,
	-column => 2,
);
$pane->pack(-fill => 'both', -expand => 1);

Tk::MainLoop;
__END__
