home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / acp / root.9 / usr / X / lib / wksh / xmexamples / progguide4 / progguide4
Encoding:
Text File  |  1998-08-19  |  381 b   |  22 lines
  1. #!/usr/bin/wksh -motif
  2.  
  3. textCB() {
  4.     gv $1 value:string
  5.     sv $MESSAGE \
  6.         labelString:"Footer: TEXTFIELD User Input: $string"
  7.  
  8.     sv $1 value:""
  9. }
  10.  
  11. ai TOPLEVEL textfield Textfield "$@"
  12.  
  13. cmw RC rc rowColumn $TOPLEVEL orientation:vertical
  14.  
  15. addfields $RC \
  16.     TEXT "Textfield: type <return> when done" 'textCB $TEXT' 10
  17.  
  18. cmw MESSAGE message label $RC labelString:"Footer:"
  19.  
  20. rw $TOPLEVEL
  21. ml
  22.