+ foreach ctx $unk_contexts { set all_contexts($ctx) 1 }
+
+ eval destroy [winfo children .d.selctx]
+ label .d.selctx.title -text \
+ {Select match context for altering dictionary:}
+ pack .d.selctx.title -side left
+ set new_context [lindex $unk_contexts 0]
+
+ set ci 0; foreach ctx [lsort [array names all_contexts]] {
+ set all_contexts($ctx) $ci
+ set selw .d.selctx.c$ci
+ set seltxt $ctx
+ radiobutton $selw -variable new_context -value $ctx -text $seltxt
+ pack $selw -side left
+ incr ci
+ }
+ $selw configure -text "$seltxt."
+ label .d.selctx.warning -text {See README.charset.}
+ pack .d.selctx.warning -side left
+