perl – 限制滚动条长度

发布时间：2020-12-16 06:25:27 所属栏目：大数据来源：网络整理

导读：我正在尝试使用Perl Tk创建一个简单的记事本,如GUI.我使用Scrolled小部件创建了一个带有两个滚动条的Text小部件 – 一个在右边,一个在底部.两个滚动条相遇的地方看起来像这样：但是,我想让它看起来像微软在“记事本”应用程序中看到的.这就是我想要的：正

我正在尝试使用Perl Tk创建一个简单的记事本,如GUI.我使用Scrolled小部件创建了一个带有两个滚动条的Text小部件 – 一个在右边,一个在底部.两个滚动条相遇的地方看起来像这样：

但是,我想让它看起来像微软在“记事本”应用程序中看到的.这就是我想要的：

正如你所看到的,现在有一个“空方块”,两个滚动条相遇.记事本的另一个功能是这个“方形”可用于调整窗口大小.我希望能够实现同样的目标.

我该怎么做呢？

谢谢！

解决方法

诀窍是将小部件放置在网格几何管理器中,这实际上创建了一个(不均匀大小的)4×4网格,其中文本小部件位于“西北”,垂直滚动条位于“东北”,水平滚动条位于“西南“,和”东南“的空广场. man page上有一个相关的例子.

# Make the widgets
toplevel .t
text .t.txt -wrap none -xscroll {.t.h set} -yscroll {.t.v set}
scrollbar .t.v -orient vertical   -command {.t.txt yview}
scrollbar .t.h -orient horizontal -command {.t.txt xview}

# Lay them out
grid .t.txt .t.v -sticky nsew
grid .t.h        -sticky nsew

# Tell the text widget to take all the extra room
grid rowconfigure    .t .t.txt -weight 1
grid columnconfigure .t .t.txt -weight 1

但是,你会自己翻译成Perl-Tk.在TkDocs上有一些与Perl-Tk相关的网格讨论(尽管不是特别关于滚动条)here可能会让你开始. “学习Perl / Tk”示例第Geometry Management章也讨论了网格.

哦!你也希望在第四个方格中调整大小.在Tcl / T(t)k中,它被称为ttk :: sizegrip,它记录在here中.我自己从未使用它(因为还有其他方法来调整窗口大小)并且不知道它是否在Perl-Tk中.如果不是,有一个wiki page讨论如何伪造它(再次,我自己从未尝试过该代码).

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!