Valider l'entrée avec ComboBox de BWidget

Question

Le widget BWidget ComboBox vous permet de remplir un champ d'entrée avec une valeur. Je voudrais appliquer uniquement des caractères spécifiques dans ce champ (par exemple seulement [a-z0-9]). A cet effet, je voudrais utiliser Tcl/Tk de -validatecommand (ou -vcmd pour faire court), comme vous le faites avec le widget standard « entrée »:

proc ValidateMyEntry { value } { 
    # Check if it's alphanum string 

    if ![regexp {^[-a-zA-Z0-9]*$} $value] { 
     return 0 
    } 
    return 1 
} 

entry .my_entry -width 20 -textvariable myVar -validate key -vcmd {ValidateMyEntry %P} 

Il semble ComboBox ne supporte pas -validatecommand . Quel est le meilleur travail autour?

Answer 1

Comme quelque chose qui était possible mais un peu lourd, j'ai décidé d'utiliser la fonction 'trace variable' à l'ancienne pour appliquer des valeurs dans la zone de liste déroulante.

Placez l'instruction suivante après l'appel ComboBox:

trace variable myVar w forceAlphaNum 

Par ailleurs, vous devez définir le forceAlphaNum proc:

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

Answer 2

Si vous souhaitez utiliser un BWidget, vous pouvez essayer avec -modifycmd ou -postcommand.

De toute façon je vous suggère d'essayer le ttk :: combobox avec l'option -postcommand.