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();
