diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 15:05:13 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 15:05:13 +0000 |
commit | 9fc19ef8e2dcd8bcf6a1d034b95c1de2b88e485c (patch) | |
tree | ee28de37fe0de6137d535fee2e64ecafaffefb91 /Master/tlpkg/tlperl/lib/Tk/demos/widtrib/Tiler.pl | |
parent | 73b942cfb4ccf168f9c2b7f20a289b06f1f54a4b (diff) |
New tlperl part II
git-svn-id: svn://tug.org/texlive/trunk@21424 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/demos/widtrib/Tiler.pl')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/demos/widtrib/Tiler.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/demos/widtrib/Tiler.pl b/Master/tlpkg/tlperl/lib/Tk/demos/widtrib/Tiler.pl new file mode 100644 index 00000000000..c9a44b8c0b1 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/demos/widtrib/Tiler.pl @@ -0,0 +1,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; |