xXx

Hexid M1n1 5h3ll MobiLe

C:/Perl/site/lib/Tk/demos/widtrib/_[ Writable ]

File:C:/Perl/site/lib/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;

Your Access Expired	Date. in : 31-10-2025
Regist : 09-12-2024	Expired : 01-12-2027