+
+ destroy [winfo children .d.selctx]
+ label .d.selctx.title -text \
+ {Select match context for new dictionary entry:}
+ pack .d.selctx.title -side left
+ set unk_context [lindex $unk_contexts 0]
+ set ci 0; foreach ctx $unk_contexts {
+ radiobutton .d.selctx.c$ci -variable unk_context \
+ -value $ctx -text $ctx
+ pack .d.selctx.c$ci -side left
+ incr ci
+ }
+ set ci [expr {[llength $unk_contexts]-1}]
+ .d.selctx.c$ci configure -text [lindex $unk_contexts $ci].
+ if {[llength $unk_contexts]==1} {
+ foreach w [winfo children .d.selctx] { $w configure -state disabled }
+ }
+ label .d.selctx.warning -text {See README.charset.}
+ pack .d.selctx.warning -side left
+