home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / grafica / sviewiv / arexx-scripts / sviewivimport.rexx < prev    next >
OS/2 REXX Batch file  |  2000-01-19  |  2KB  |  85 lines
  1. /*
  2.    $VER: SViewIVImport.rexx V1.0 (1.1.2000)
  3.  
  4.    based on SViewNGImport.rexx © 1998 by William F. Maddock
  5.  
  6.    Modified (with Andreas' help) from:
  7.    LoadRequest.rx V6.21 (17.3.97)
  8.    © 1993-97 by Andreas R. Kleinert
  9.  
  10.    Changed to SViewIVImport.rexx by Andreas R. Kleinert in 2000.
  11.  
  12.    Which was written to demonstrate remote control of SViewNG through its ARexx Port.
  13.  
  14.    This script should only be run from PageStream3.x Amiga and requires OS3.x.
  15.  
  16.    The path to SViewNG in line 33 should be modified to match your system.
  17.  
  18.    The "DRAWER" argument to the RequestFile command in line 45 should be changed to
  19.    suit your needs.
  20.  
  21.    This script will load a graphic file from disk via the file requester, save it to
  22.    the clipboard, command PageStream3 to paste it to the current document, then exit.
  23.    Remember, this means a 24-bit IFF-ILBM occupying space in your CLIPS: directory
  24.    (usually located in RAM:). If this bothers you, then remove the comment brackets
  25.    from line 64 (the delete command).
  26.  
  27. */
  28.  
  29. OPTIONS RESULTS
  30. SIGNAL ON ERROR
  31.  
  32. SVIIPORT = 'SViewII.rx'
  33. SVNGPORT = 'SViewNG.rx'
  34. SVPORT   = 'SuperView.rx'
  35.  
  36. IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
  37. IF ~SHOW('P',SVPORT) THEN SVPORT = SVIIPORT
  38. IF ~SHOW('P',SVPORT) THEN DO
  39.    address command
  40.    "MISC:Gfx/SuperView/SViewIV" "-INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE"
  41.    wait 20
  42.    IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
  43.    IF ~SHOW('P',SVPORT) THEN SVPORT = SVIIPORT
  44.    IF ~SHOW('P',SVPORT) THEN DO
  45.      say "Could not locate ARexx port of SViewIV !"
  46.      CALL ErrorOut 0
  47.    END
  48. END
  49.  
  50. ADDRESS VALUE SVPORT
  51.  
  52.  
  53. Address Command "C:RequestFile DRAWER "" NOICONS PUBSCREEN PageStream3 >T:RF"
  54.  
  55. OPEN('import','T:RF','read')
  56. importpath = READLN('import')
  57. CLOSE('import')
  58. importpath = STRIP(importpath,'B','"')
  59.  
  60. 'OPTION_SAVE=CLIP'
  61.  
  62. 'LOAD='importpath
  63.  
  64. 'SAVE=CLIPS:0'
  65.  
  66. ADDRESS 'PAGESTREAM'
  67.  
  68. 'pasteobject progress'
  69.  
  70. wait 5
  71.  
  72. address command "delete CLIPS:0"
  73.  
  74. CALL ErrorOut 0
  75.  
  76.  
  77. /* Errorout procedure ----------------------- */
  78.  
  79. ErrorOut:
  80.         PARSE ARG ExitCode
  81.  
  82.         EXIT ExitCode
  83.  
  84.   END
  85.