我有一个带有输入框的 Tcl/Tk 窗口,我想在其中强制输入大写字符。也就是说,如果输入了任何字母,我希望它们在输入字段中以大写形式出现,而不是简单地拒绝任何小写输入。
我查看了 Tcl/Tk wiki 上的条目文档和条目验证页面,但我一定没有在正确的地方寻找,因为虽然有很多验证示例,但我找不到过滤键的示例输入改变大小写。
我能得到的最接近的是以下内容:
entry .message -validate key -validatecommand {
.message insert %i [string toupper "%S"]
return 0
}
这将强制键入的第一个字符为大写,但不翻译后续字符。事实上,在第一个字符之后根本不会调用验证脚本。如果我省略了.message insert
测试命令,则会为每个字符调用验证脚本。