home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / util / zedrexx-1.0c.lha / ZedREXX / REXX / StdI.zrx < prev    next >
Encoding:
Text File  |  1994-03-28  |  1.7 KB  |  74 lines
  1. /* $VER: stdi.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 zStdI'
  13.     'zWindow Main Label "Image Example" Open Centered Vertical CloseEvent ChildMaxWidth'
  14.     'zMenu Project'
  15.         'zObject Button Quit Label "&Quit" SelectEvent'
  16.     'zEndMenu'
  17.  
  18.     'zGroup Horizontal ChildMaxHeight Justification Left'
  19.         'zObject StdI Image Which=Question'
  20.         'zObject TextDisplay TD1 Value "Ask a question." NoBorder'
  21.     'zEndGroup'
  22.     'zGroup Horizontal ChildMaxHeight Justification Left'
  23.         'zObject StdI Image Which=Information'
  24.         'zObject TextDisplay TD2 Value "Show some Information." NoBorder'
  25.     'zEndGroup'
  26.     'zGroup Horizontal ChildMaxHeight Justification Left'
  27.         'zObject StdI Image Which=Exclamation'
  28.         'zObject TextDisplay TD3 Value "Give a Warning." NoBorder'
  29.     'zEndGroup'
  30.     'zGroup Horizontal ChildMaxHeight Justification Left'
  31.         'zObject StdI Image Which=Stop'
  32.         'zObject TextDisplay TD4 Value "Give a Fatal Warning." NoBorder'
  33.     'zEndGroup'
  34.  
  35.     'zObject Line'
  36.  
  37.     'zGroup Horizontal Justification Center'
  38.         'zObject Button OK Label "&OK" SelectEvent'
  39.     'zEndGroup'
  40.  
  41.     'zEndWindow'
  42. 'zEndInterface'
  43.  
  44. /* Turn everything on */
  45. 'zDoMethod zStdI Activate'
  46.  
  47. /* Enter the event loop */
  48. DO FOREVER
  49.  
  50.     /* Wait for something to happen */
  51.     'zWaitForEvent stem.'
  52.  
  53.     /* Do something with the event */
  54.     INTERPRET "zRC="RESULT"()"
  55. END
  56.  
  57. Halt:
  58. OK_Select:
  59. Quit_Select:
  60. zStdI_Quit:
  61.     EXIT
  62.  
  63. Error:
  64.     IF RC=20 THEN DO
  65.     SAY "Must be run within zrx"
  66.     EXIT
  67.     END
  68.     SAY "Error" RC "at line" SIGL " (errnum="zErrNum")"
  69.     EXIT
  70.  
  71. OK_Select:
  72. Main_Close:
  73.     EXIT
  74.