# second "send" test: sending to another application
xtAppInitialize -class Program

xmRowColumn .r managed

xmPushButton .r.prog40 managed -labelString "Send to prog39"
.r.prog40 activateCallback send39

xmPushButton .r.prog40 managed -labelString "Send to prog39Tk"
.r.prog40 activateCallback send39Tk

proc send39 {} {
  send prog39 {puts stdout "hi there"}
}

proc send39Tk {} {
  send prog39Tk {puts stdout "hi there, Tk program"}
}

. realizeWidget

. mainLoop
