home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / browser / EditImage.browse < prev   
Encoding:
Text File  |  1994-09-22  |  724 b   |  40 lines
  1. /*
  2.  * ImageFX Browser Script
  3.  *
  4.  * All browser scripts are called as follows:
  5.  *
  6.  *    ScriptName.browse <numfiles> <filelist>
  7.  *
  8.  * Where:
  9.  *
  10.  *    <numfiles>        = Number of files selected (could be 0).
  11.  *    <filelist>        = File containing the list of files selected,
  12.  *                        one file per line, with full pathname.
  13.  *
  14.  * EditImage.browse:
  15.  *
  16.  *    Load the first image supplied into ImageFX; bring ImageFX to
  17.  *    the front.
  18.  *
  19.  */
  20.  
  21. OPTIONS RESULTS
  22.  
  23. PARSE ARG numfiles filelist .
  24.  
  25. IF numfiles > 0 THEN DO
  26.  
  27.    Screen2Front
  28.  
  29.    IF OPEN(infile, filelist, 'Read') THEN DO
  30.  
  31.       curfile = READLN(infile)
  32.       LoadBuffer '"'curfile'"' FORCE
  33.       Uniconify
  34.  
  35.       CALL CLOSE(infile)
  36.  
  37.    END
  38.  
  39. EXIT 0
  40.