foreach ctx $contexts { set all_contexts($ctx) 1 }
}
foreach ctx $unk_contexts { set all_contexts($ctx) 1 }
foreach ctx $contexts { set all_contexts($ctx) 1 }
}
foreach ctx $unk_contexts { set all_contexts($ctx) 1 }
proc draw_glyphsdone {} {
global glyphsdone mul inter
eval destroy [winfo children .d.got]
proc draw_glyphsdone {} {
global glyphsdone mul inter
eval destroy [winfo children .d.got]
frame .d.got.m$min -bd 0 -background \#888
label .d.got.m$min.l -text "$got" -fg white -bg black -bd 0
pack .d.got.m$min.l -padx 1 -pady 1
frame .d.got.m$min -bd 0 -background \#888
label .d.got.m$min.l -text "$got" -fg white -bg black -bd 0
pack .d.got.m$min.l -padx 1 -pady 1
bind_key space { bind_key Delete {}; set cur_mode 1; recursor }
bind_key Delete {
RETURN_RESULT DELETE [lrange $glyphsdone \
bind_key space { bind_key Delete {}; set cur_mode 1; recursor }
bind_key Delete {
RETURN_RESULT DELETE [lrange $glyphsdone \