/*
   $VER: SetSVOperator.rx V8.00 (22.7.98)
   © 1993-98 by Andreas R. Kleinert

   This script demonstrates how to modify the default SVOperator
   settings without using the GUI, but SViewII's ARexxPort.

   The resulting changes will also appear on SViewII's GUI,
   if already open.

*/

address command

SViewII "-INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE"

say ""
say "ARexx: SViewII has been started : Waiting a moment..."

wait 5

OPTIONS RESULTS
SIGNAL ON ERROR
SVIIPORT = 'SViewII.rx'
SVNGPORT = 'SViewNG.rx'
SVPORT   = 'SuperView.rx'

IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
IF ~SHOW('P',SVPORT) THEN SVPORT = SVIIPORT
IF ~SHOW('P',SVPORT) THEN DO
  say "Could not locate ARexx port of SViewII !"
  CALL ErrorOut 0
END

ADDRESS VALUE SVPORT

'SVOPERATOR=HilbertDither256'

address command wait 5

'SVOPERATOR=XOR'

CALL ErrorOut 0


/* Errorout procedure ----------------------- */

ErrorOut:
        PARSE ARG ExitCode

        EXIT ExitCode

  END