home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / util / zedrexx-1.0c.lha / ZedREXX / REXX / Z.zrx < prev    next >
Encoding:
Text File  |  1994-08-07  |  976 b   |  52 lines
  1. /* $VER: Z.zrx 1.0 (10.09.93)
  2.  * Test script for the Great and Mighty ZedREXX
  3.  * Copyright (c) 1993 Reality Check, Inc.
  4.  *
  5.  */
  6.  
  7. OPTIONS RESULTS
  8. SIGNAL ON ERROR
  9. SIGNAL ON HALT
  10.  
  11. /* Application Data */
  12. 'zInterface Z'
  13.     'zWindow Main Label "ZedREXX" Open Centered Vertical CloseEvent Justification Center Alignment Center'
  14.     'zMenu Project'
  15.         'zObject Button Quit Label "&Quit" SelectEvent'
  16.     'zEndMenu'
  17.     'zObject TextDisplay Value "Hello World"'
  18.     'zObject Line'
  19.     'zObject Button OK Label "&OK" SelectEvent'
  20.     'zEndWindow'
  21. 'zEndInterface'
  22.  
  23. /* Turn everything on */
  24. 'zDoMethod Z Activate'
  25.  
  26. /* Enter the event loop */
  27. DO FOREVER
  28.  
  29.     /* Wait for something to happen */
  30.     'zWaitForEvent stem.'
  31.  
  32.     /* Do something with the event */
  33.     INTERPRET "zRC="RESULT"()"
  34. END
  35.  
  36. Halt:
  37. Quit_Select:
  38. Z_Quit:
  39.     EXIT
  40.  
  41. Error:
  42.     IF RC=20 THEN DO
  43.     SAY "Must be run within zrx"
  44.     EXIT
  45.     END
  46.     SAY "Error" RC "at line" SIGL " (errnum="zErrNum")"
  47.     EXIT
  48.  
  49. OK_Select:
  50. Main_Close:
  51.     EXIT
  52.