blob: c9a44b8c0b1ae851b6970be8e7f3707f5f7f88a6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
# Tiler, arrange widgets in rows.
use strict;
use Tk;
use Tk::Tiler;
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;
foreach (1 .. $num) {
$tiler->Manage( $tiler->Label(-text => "**$_**") );
}
$tiler->pack(qw/-expand yes -fill both/);
MainLoop;
|