home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / viewer / sut-s730.lzx / SViewNG / ARexx-Scripts / LoadRequest.rx < prev    next >
Encoding:
Text File  |  1997-11-16  |  742 b   |  46 lines
  1. /*
  2.    $VER: LoadRequest.rx V6.21 (17.3.97)
  3.    © 1993-97 by Andreas R. Kleinert
  4.  
  5.    This script demonstrates some kind of remote control of SViewNG
  6.    by using SViewNG's ARexxPort.
  7.  
  8. */
  9.  
  10. address command
  11.  
  12. SViewNG "-INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE"
  13.  
  14. say ""
  15. say "ARexx: SViewNG has been started : Waiting a moment..."
  16.  
  17. wait 5
  18.  
  19. OPTIONS RESULTS
  20. SIGNAL ON ERROR
  21. SVNGPORT = 'SViewNG.rx'
  22. SVPORT   = 'SuperView.rx'
  23.  
  24. IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
  25. IF ~SHOW('P',SVPORT) THEN DO
  26.   say "Could not locate ARexx port of SViewNG !"
  27.   CALL ErrorOut 0
  28. END
  29.  
  30. ADDRESS VALUE SVPORT
  31.  
  32. 'OPEN_GUI'
  33. 'REQUEST'
  34.  
  35. CALL ErrorOut 0
  36.  
  37.  
  38. /* Errorout procedure ----------------------- */
  39.  
  40. ErrorOut:
  41.         PARSE ARG ExitCode
  42.  
  43.         EXIT ExitCode
  44.  
  45.   END
  46.