水平滚动条不起作用

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的选项。