# Tiler, arrange widgets in rows.
my $mw = MainWindow
->new();
my $tiler = $mw->Scrolled('Tiler');
my $num = $tiler->cget('-rows') * $tiler->cget('-columns');
$mw->Label(-text
=> "Tiler with $num widgets")->pack;
$tiler->Manage( $tiler->Label(-text
=> "**$_**") );
$tiler->pack(qw
/-expand yes -fill both/);