perl - 水平スクロールバーが機能しない

Question

use Tk;

my $mw=new MainWindow;

$mw->geometry("1024x768");

$mw->Scrolled("Text", -scrollbars => "s", -width => 30,-height=>10)->pack( );

MainLoop;

ヘルプが必要です。水平スクロールバーが機能していません。私は何が間違っているのですか？

Answer 1

テキストウィジェットの折り返しモードとは何ですか？単語または文字の境界で折り返すように構成されている場合、水平スクロールバーは必要ありません。私の場合、デフォルトの折り返しモードはchar（つまり、端末のように文字境界で行を折り返す）なので、それを望んでいるにもかかわらず、これがデフォルトであると思いますnone（水平方向の唯一の設定）スクロールバーは便利です）。

オプションに追加-wrap => "none",しますScrolled。