home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 2 / amigaformatcd02.iso / pd / text / alphaspell_suite / varexx / demo / testgui.rexx < prev    next >
OS/2 REXX Batch file  |  1996-05-20  |  2KB  |  95 lines
  1. /*************************************************************************/
  2. /* $VER: testgui.rexx 1.1 (6.12.95)                                     */
  3. /* Script to test varexx GUI's                                           */
  4. /* Usage: rx testgui GUINAME                                             */
  5. /* Displays the given .GUI file and echos all messages to STDOUT         */
  6. /* Useful for testing .GUI files before the rest of the script is        */
  7. /* written.                                                              */
  8. /*************************************************************************/
  9.  
  10. gui_file = arg(1)
  11.  
  12. IF EXISTS("libs:rexxsupport.library") THEN DO
  13.     IF ~SHOW("L","rexxsupport.library") THEN
  14.         IF ~ADDLIB("rexxsupport.library",0,-30,0) THEN EXIT
  15. END
  16. ELSE EXIT
  17.  
  18. IF EXISTS("libs:rexxreqtools.library") THEN DO
  19.     IF ~SHOW("L","rexxreqtools.library") THEN
  20.         IF ~ADDLIB("rexxreqtools.library",0,-30) THEN EXIT
  21. END
  22. ELSE EXIT
  23.  
  24. OPTIONS RESULTS
  25. OPTIONS FAILAT 10
  26.  
  27. SIGNAL ON SYNTAX
  28. SIGNAL ON FAILURE 
  29.  
  30. /* Get the GUI file from the user */
  31. IF gui_file = '' THEN
  32.   DO
  33.     gui_file=rtfilerequest('REXX:gui',,'Varexx Request','_Load','rt_reqpos=reqpos_centerscr rtfi_matchpat=#?.gui rtfi_flags=freqf_patgad')
  34.     IF gui_file = '' THEN EXIT
  35.   END
  36.  
  37. /* Check Varexx is loaded if not load it */
  38.  
  39. IF SHOW( 'p', 'VAREXX' ) ~= 1 THEN DO
  40.     ADDRESS COMMAND "run >NIL: varexx"
  41.     ADDRESS COMMAND "WaitForPort VAREXX"
  42. END
  43. ADDRESS VAREXX
  44.  
  45. IF OPENPORT("HOLLY") = 0 THEN DO
  46.     CALL rtezrequest "Could not open a port.",, "Varexx Error"
  47.     EXIT
  48. END
  49.  
  50.   'load ' gui_file 'HOLLY'
  51.  
  52. vhost = RESULT
  53. say rc externerror
  54. ADDRESS VALUE vhost
  55.  
  56. show
  57.  
  58. /**************************************************************************/
  59. /* MAIN LOOP -- Check for GUI events                                      */
  60. /**************************************************************************/
  61.  
  62. DO FOREVER
  63.     CALL WAITPKT("HOLLY")
  64.     packet = GETPKT("HOLLY")
  65.     IF packet ~= '00000000'x THEN DO
  66.         class = GETARG(packet)
  67.         say class
  68.         if class = "CLOSEWINDOW" THEN LEAVE
  69.     END
  70. END
  71.  
  72.     'hide unload'    
  73.  
  74.     CALL CLOSEPORT( "HOLLY" )
  75. EXIT
  76.  
  77. /* Error messages */
  78. failure:
  79.     SAY "Error code" rc "-- Line" SIGL
  80.     SAY EXTERNERROR
  81.     'hide unload'
  82.     CALL CLOSEPORT ("HOLLY")
  83.  
  84. EXIT
  85.  
  86. syntax:
  87.     SAY "Error" rc  "-- Line" SIGL
  88.     SAY ERRORTEXT( rc )
  89.     'hide unload'
  90.     CALL CLOSEPORT ("HOLLY")
  91. EXIT
  92.  
  93.  
  94.  
  95.