#!/pub/local/bin/wish -f

button .button -command sendTo -text "I'm a Tk button"
pack .button -side left

proc sendTo {} {
  send xmSend {setLabel "Welcome from Tk"}
}
