Горизонтальная полоса прокрутки не работает

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.