/* --------------------- ARexx-Script zur Uebergabe eines Bildes an PS3 ------------------- */
/* ------------------------------------- Version 1.0 -------------------------------------- */
/* ------------------- von Volkmar Funke -- EMail: Volkmar_Funke@BN.maus.de ----------------*/
/* --- Dieses ARexx-Script importiert ein ausgewaehltes Bild von ImageDesk in PageStream ---*/
/* ----- mit Beruecksichtigung, das PageStream kein JPEG unterstuetzt (Zusatzmodul) --------*/


OPTIONS RESULTS
PARSE ARG iname itype ipos


/* Sicherstellung das ARexx supportet ist */
IF ~SHOW('L','rexxsupport.library') THEN
        CALL ADDLIB('rexxsupport.library',0,-30)
IF ~SHOW('L','softlogik:libs/slarexxsupport.library') THEN
        CALL ADDLIB('softlogik:libs/slarexxsupport.library', 0, -30)


if ~show(P, 'PAGESTREAM') then do /* Fehlermeldung falls PageStream nicht gestartet ist*/
        ADDRESS 'IDESK_REXXPORT'
        IDREQUEST "OK" '" PageStream nicht gestartet "'
        EXIT
end

if '"'||itype||'"'=='" JPG"' then do    /* Abfrage ob JPEG-Format */
        IDREQUEST "OK" '" PageStream unterstuetzt kein JPEG-Format! "'
        EXIT
end

ADDRESS 'PAGESTREAM'

/* Uebergabe der Grafik, falls kein Dokument geoeffnet Fehlermeldung */
'refresh wait'
placegraphic FILE '"'||iname||'"'
if rc~=0 then do

    ADDRESS 'IDESK_REXXPORT'
    IDREQUEST "OK" '" Kein Dokument in PageStream offen "'
    signal cancel
end

/* Typfestlegung und Anfrage ob ausgelgert werden soll */
'getobject type objtype'
objnum=result
trace ?i

'refresh continue'

EXIT


CANCEL:

ADDRESS 'PAGESTREAM'   /* Muss durchgefuehrt werden, sonst keine Darstellung wenn neues */
'refresh continue'     /* Dokument geoeffnet wird */
  EXIT