[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / sun4-solaris / Tk / demos / widtrib / Tiler.pl

# 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;
Commit	Line	Data
86530b38 AT	1	# Tiler, arrange widgets in rows.
	2
	3	use strict;
	4	use Tk;
	5	use Tk::Tiler;
	6
	7	my $mw = MainWindow->new();
	8	my $tiler = $mw->Scrolled('Tiler');
	9	my $num = $tiler->cget('-rows') * $tiler->cget('-columns');
	10	$mw->Label(-text => "Tiler with $num widgets")->pack;
	11	foreach (1 .. $num) {
	12	$tiler->Manage( $tiler->Label(-text => "$_") );
	13	}
	14	$tiler->pack(qw/-expand yes -fill both/);
	15	MainLoop;