# first test of "send" command
xtAppInitialize -class Program

xmPushButton .pressme managed
.pressme activateCallback send_it

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

. realizeWidget

. mainLoop
