perl/tk のScrollbarについて

質問

下のように縦にボタンを100個配置した場合、どのようにスクロールバーを設定するのですか？表現がまずいかもしれませんが、MainWindowの縦にスクロールバーを配置したいのですが、方法がわかりません。
--------------------------------------------------------
#!c:\perl\bin\perl.exe
use Tk;
$top = MainWindow->new();
#ボタン
$button_1 = $top->Button( -text => "ボタン１",-command => \&filemake ) ->grid();
$button_2 = $top->Button( -text => "ボタン２",-command => \&filemake ) ->grid();
$button_3 = $top->Button( -text => "ボタン３",-command => \&filemake ) ->grid();
$button_4 = $top->Button( -text => "ボタン４",-command => \&filemake ) ->grid();
$button_5 = $top->Button( -text => "ボタン５",-command => \&filemake ) ->grid();
$button_6 = $top->Button( -text => "ボタン６",-command => \&filemake ) ->grid();
.
.
.
$button_99 = $top->Button( -text => "ボタン９９",-command => \&filemake ) ->grid();
$button_100 = $top->Button( -text => "ボタン１００",-command => \&filemake ) ->grid();
MainLoop();

回答No.1

SE-1 · ベストアンサー

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;

for (my $i=1;$i<=20;$i++){
my $btn = $tl->Button(-text => $i,-width=>20)->pack(-side=>'top');
push @btns,$btn;
}

$tl->Manage(@btns);

$tl->update;
$tl->focus;

MainLoop;

お礼

ありがとうございます。