tcl - 限制Tk entry widget中的输入字符数

Question

在 TCL 中，如何限制 entry 小部件中的输入字符数？

我有一个 TCL 字段，用户可以在其中输入一些文本，我希望限制文本的长度(例如不超过 30 个字符)。

有什么选择吗？

Answer 1

入口验证回调是方式，%P替换是关键。来自 the docs :

%P
The value of the entry if the edit is allowed. If you are configuring the entry widget to have a new textvariable, this will be the value of that textvariable.

这意味着我们这样做:

pack [entry .e -width 50 -validate all -validatecommand {
    expr {[string length %P] <= 30}
}]

好了，您将无法对长度超过 30 的小部件进行任何编辑。(最好还添加一个 -invalidcommand 规范，以便用户可以找出发生了什么。)