tcl - 在 Tcl/Tk 输入字段中强制输入大写

Question

我有一个带有输入框的 Tcl/Tk 窗口，我想在其中强制输入大写字符。也就是说，如果输入任何字母，我希望它们以大写形式出现在输入字段中，而不是简单地拒绝任何小写输入。

我查看了 entry 的文档和 Entry Validation Tcl/Tk wiki 上的页面，但我一定没有在正确的地方寻找，因为虽然有很多验证示例，但我找不到过滤键输入以更改大小写的示例。

我能够得到的最接近的是以下内容:

entry .message -validate key -validatecommand {
    .message insert %i [string toupper "%S"]
    return 0
}

这会强制输入的第一个字符为大写，但不会翻译后续字符。实际上，在第一个字符之后根本不会调用验证脚本。如果我省略 .message insert用于测试的命令，为每个字符调用验证脚本。

Answer 1

如果您在验证命令中为您的条目设置新值，验证将关闭(大概是为了防止无限循环)。但是，您可以在之后重新打开它:

entry .message -validate key -validatecommand {
    .message insert %i [string toupper "%S"]
    .message configure -validate key
    return 0
}