#! /usr/bin/wish

if { [catch {set word [selection get]} error] != 0 } {
    exit 0
}
   
wm title . $word

text .tr -font -*-*-medium-r-*-*-16-*-*-*-*-*-koi8-r

if { [catch {set fd [open "|muller -X $word" "r"]} error] != 0 } {
    .tr insert 0 "Can't run dict"
} else {
    .tr insert end "[read $fd]"
}

pack .tr -expand yes -fill both

#Local variables:
#mode: tcl
#End:
