使用BWidget的组合框验证条目

如果要使用BWidget,可以尝试使用-modifycmd或-postcommand。

无论如何,我建议您尝试使用带有-postcommand选项的ttk::combobox。

将以下语句放在ComboBox调用之后:

trace variable myVar w forceAlphaNum

proc forceAlphaNum { name el op } {
    if { $el == "" } {
        set newname $name
        set oldname ${name}_alphanum
    } else {
        set newname ${name}($el)
        set oldname ${name}_alphanum($el)
    }

    global $newname
    global $oldname

    if { ![info exist $oldname] } {
        set $oldname ""
    }    

    # Check if it's alphanum string
    if ![regexp {^[a-zA-Z0-9]*$} [set $newname]] {
        set $newname [set $oldname]
        bell; return
    }
    set $oldname [set $newname]
}