/* PowerPacker Loader für DirOpus */

/* Wartet auf das Öffnen des PowerPacker-ARexxPorts */
/* und simuliert das Drücken der linken Maustaste */
IF ~SHOW("Ports","POWERPACKER") THEN DO 
   ADDRESS COMMAND "SYS:UTILITIES/POWERPACKER"
   ADDRESS COMMAND "REXX:WaitForPort POWERPACKER"
   ADDRESS COMMAND "Run Sys:c/FakeKey 0 lbutton"
END

OPTIONS RESULTS
ADDRESS "DOPUS.1"

/* Name des Verzeichnisses im momentan aktiven Fenster */
STATUS 13 "-1";       PATH=RESULT
/* Name des ersten angewählten Eintrags im aktiven Fenster */
GETNEXTSELECTED "-1"; NAME=RESULT

PARSE VAR PATH; PARSE VAR NAME

ADDRESS "POWERPACKER"
PP2FRONT                  /* PowerPacker-Window nach vorne */

IF NAME=0 THEN LOAD
   /* Falls Powerpacker gestartet wurde, aber in DirOpus kein
    * Eintrag angewählt ist, Filerequester öffnen */
ELSE DO
   LOAD PATH||NAME
   SAVE
END

/* der erste in DirOpus angewählte Eintrag wird geladen, gepackt
 * und nach Abschluß des Packvorgangs erscheint der Filerequester
 * um zu sichern */

ICONIFY /* Powerpacker wird iconifiziert */

ADDRESS "DOPUS.1"
DOPUSTOFRONT /* DirOpus wird wieder in den Vordergrund geholt */

EXIT