水平滚动条不起作用

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 。