tcl - 验证 TK/Tcl 中的条目

Question

我正在尝试验证条目的文本输入。

entry $w.e -validate key -vcmd "entryChanged $w.l $w.e"

我定义了以下回调。

proc entryChanged {l e} {
    puts [$e get]
    return 1
}

问题是 get 返回条目的先前值，因为新值直到验证后才设置。我的问题是如何访问新值？ (待验证的值)我相信它与 -textvariable 有关，但是，我找不到太多关于此的文档。

Answer 1

您需要仔细阅读 entry documentation 的验证部分.例如，试试这个

... -vcmd {entryChanged  %W %s %P}

proc entryChanged {widget_name old_value new_value} {
    puts "widget name = $widget_name"
    puts "previous value = $old_value"
    puts "edited value = $new_value"
    return true
}