home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / tcl / tclmotif.1 / tclmotif / tm.1.2 / programs / prog40 < prev    next >
Encoding:
Text File  |  1993-11-15  |  467 b   |  23 lines
  1. # second "send" test: sending to another application
  2. xtAppInitialize -class Program
  3.  
  4. xmRowColumn .r managed
  5.  
  6. xmPushButton .r.prog40 managed -labelString "Send to prog39"
  7. .r.prog40 activateCallback send39
  8.  
  9. xmPushButton .r.prog40 managed -labelString "Send to prog39Tk"
  10. .r.prog40 activateCallback send39Tk
  11.  
  12. proc send39 {} {
  13.   send prog39 {puts stdout "hi there"}
  14. }
  15.  
  16. proc send39Tk {} {
  17.   send prog39Tk {puts stdout "hi there, Tk program"}
  18. }
  19.  
  20. . realizeWidget
  21.  
  22. . mainLoop
  23.