Perl 水平滚动条不工作

我需要帮助。水平滚动条不工作。我做错了什么？

文本小部件的换行模式是什么？如果将其配置为在单词或字符边界上换行，则永远不需要水平滚动条。对我来说，默认的换行模式是

char

（即，像终端一样在字符边界换行），所以我猜这也是默认模式，尽管您希望它是

none

（水平滚动条唯一有用的设置）

---

将

-wrap=>“无”

添加到滚动的

选项中

文本小部件的wrap模式是什么？如果将其配置为在单词或字符边界上换行，则永远不需要水平滚动条。对我来说，默认的换行模式是

char

（即，像终端一样在字符边界换行），所以我猜这也是默认模式，尽管您希望它是

none

（水平滚动条唯一有用的设置）

---

将

-wrap=>“无”

添加到滚动的

选项中

什么是“不工作”。当我执行你的脚本时，我会看到一个窗口，底部有一个文本框和一个滚动条。是的，我也会看到一个滚动条。但是当我输入长度大于文本框宽度的文本时，滚动条不会出现。文本会向下移动另一行。你说的“不工作”是什么意思。当我执行你的脚本时，我会看到一个窗口，底部有一个文本框和一个滚动条。是的，我也会看到一个滚动条。但是当我输入长度大于文本框宽度的文本时，滚动条不会出现。文本会向下移动另一行。

word

包装风格更像文字处理器/web浏览器，使用可变宽度字体时效果特别好。

word

包装风格更像文字处理器/web浏览器，使用可变宽度字体时效果特别好。

use Tk;

my $mw=new MainWindow;

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

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

MainLoop;