home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Graphics / SViewIV / ARexx-Scripts / SetSVOperator.rx < prev    next >
Text File  |  2000-08-08  |  969b  |  54 lines
  1. /*
  2.    $VER: SetSVOperator.rx V9.00 (15.8.99)
  3.    © 1993-99 by Andreas R. Kleinert
  4.  
  5.    This script demonstrates how to modify the default SVOperator
  6.    settings without using the GUI, but SViewIV's ARexxPort.
  7.  
  8.    The resulting changes will also appear on SViewIV's GUI,
  9.    if already open.
  10.  
  11. */
  12.  
  13. address command
  14.  
  15. SViewIV "-INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE"
  16.  
  17. say ""
  18. say "ARexx: SViewIV has been started : Waiting a moment..."
  19.  
  20. wait 5
  21.  
  22. OPTIONS RESULTS
  23. SIGNAL ON ERROR
  24. SVIIPORT = 'SViewII.rx'
  25. SVNGPORT = 'SViewNG.rx'
  26. SVPORT   = 'SuperView.rx'
  27.  
  28. IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
  29. IF ~SHOW('P',SVPORT) THEN SVPORT = SVIIPORT
  30. IF ~SHOW('P',SVPORT) THEN DO
  31.   say "Could not locate ARexx port of SViewII !"
  32.   CALL ErrorOut 0
  33. END
  34.  
  35. ADDRESS VALUE SVPORT
  36.  
  37. 'SVOPERATOR=HilbertDither256'
  38.  
  39. address command wait 5
  40.  
  41. 'SVOPERATOR=XOR'
  42.  
  43. CALL ErrorOut 0
  44.  
  45.  
  46. /* Errorout procedure ----------------------- */
  47.  
  48. ErrorOut:
  49.         PARSE ARG ExitCode
  50.  
  51.         EXIT ExitCode
  52.  
  53.   END
  54.