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文档的验证部分。例如，试试这个

... -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
}