- 608 名前：デフォルトの名無しさん [2010/04/29(木) 23:36:58 ]
- 何度もすいません。
>>601の修正版で、
常に最新出力行が確認できるようににしたい
(現状、テキストボックスが画面出力に追従しない。。。)
のですが、何かうまい方法ってあるんでしょうか？
調べてみたんですけど、うまいこといかなくて。。。
-----
use Tk;
$window1 = MainWindow->new();
$frame1 = $window1->Frame()->pack();
$output = $frame1->Scrolled('Text', -scrollbars=>'se')->pack(-expand=>1, -fill=>'both');
for($cnt=0; $cnt<1000; $cnt++){
$output_tmp = "$cnt" . "\n";
$output->insert("end", $output_tmp);
$output_tmp = "";
$window1->update();
}
MainLoop();
-----
