perl/tk のScrollbarとジオメトリー

質問

Tk::Tilerを教えてもらってスクロールバーを配置できたのですが、ジオメトリーマネージャでpack,gridを使って、配置できる方法を知りたいのですが。
-----------------------------------------------
use Tk;
use Tk::Tiler;
$top = MainWindow->new();
$top0 = $top->Tiler()->pack();

$top->AddScrollbars($top0);
$top->configure(\'-scrollbars\' => \'w\');
#ボタン
$button_1 = $top0->Button( -text => \"1\")->grid();
$button_2 = $top0->Button( -text => \"2\")->grid();
....
$button_6 = $top0->Button( -text => \"6\")->grid();

$button_11 = $top0->Button( -text => \"11\" );
$button_12 = $top0->Button( -text => \"12\" );
$button_13 = $top0->Button( -text => \"13\" );
......
$button_16 = $top0->Button( -text => \"16\" );

$button_11->grid($button_12,....,$button_16);

$button_21 = $top0->Button( -text => \"21\" );
$button_22 = $top0->Button( -text => \"22\" );
........
$button_26 = $top0->Button( -text => \"26\" );
$button_21->grid($button_22,......,$button_26);

$top0->Manage($button_1,$button_2,$button_3,$button_4,$button_5,$button_6);
$top0->Manage($button_11,$button_12,$button_13,$button_14,$button_15,$button_16);
$top0->Manage($button_21,$button_22,$button_23,$button_24,$button_25,$button_26);
$top0->update;
$top0->focus;
MainLoop();

回答No.1

pipipi523 · ベストアンサー

Tkは知らなかったりするのですが、
前回のTk::Tilerを参考にこんな感じで。

use Tk;
use Tk::Tiler;
my $top = MainWindow->new();
$top->geometry("150x100+240+120");
my $tl = $top->Tiler()->pack();
$top->AddScrollbars($tl);
$top->configure('-scrollbars' => 'w');
my @btns,$y=0,$x=0;
for(my $i=0;$i < 100;$i++){
my $btn = $tl->Button( -text => "$i" )->grid( -column => $x, -row => $y , -sticky => 'ew' );
push @btns,$btn;
$x=($x+1)%6;
$y++ if($x==0);
}
$tl->Manage(@btns);
MainLoop();