chiark / gitweb /
Do not have a default dictionary context when adding entries; it's error prone
[ypp-sc-tools.db-test.git] / pctb / dictionary-manager
index 833e727..365aecb 100755 (executable)
@@ -285,7 +285,7 @@ proc required/char {} {
     label .selctx.title -text \
        {Select match context for altering dictionary:}
     pack .selctx.title -side left
     label .selctx.title -text \
        {Select match context for altering dictionary:}
     pack .selctx.title -side left
-    set new_context [lindex $unk_contexts 0]
+    set new_context {}
 
     set ci 0; foreach ctx [lsort [array names all_contexts]] {
        set all_contexts($ctx) $ci
 
     set ci 0; foreach ctx [lsort [array names all_contexts]] {
        set all_contexts($ctx) $ci