home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / AdPro2_5_0-1.DMS / AdPro2_5_0-1.adf / DisplayImage.adproapp < prev    next >
Encoding:
Text File  |  1994-01-31  |  1.4 KB  |  81 lines
  1. /*
  2. ** DisplayImage.adproapp
  3. **
  4. ** $VER: DisplayImage.adproapp 1.0.0 (29.1.94)
  5. **
  6. ** This ARexx script for ADPro is intended to be used as the script that
  7. ** gets executed when one or more files is dropped on the ADPro AppWindow
  8. ** or AppIcon.  As such, you should set the APPSCRIPT tool type or
  9. ** CLI argument to this script's filename.
  10. **
  11. ** This app script allows you to load and display the first image dropped
  12. ** on the AppWindow/AppIcon/AppMenu.  If more than one image is dropped,
  13. ** they will be ignored.
  14. **
  15. ** This script requires ADPro v2.5.0 (or higher).
  16. **
  17. ** Copyright © 1993-1994 ASDG, Incorporated
  18. ** All Rights Reserved
  19. */
  20.  
  21.  
  22. ADDRESS "ADPro"
  23. OPTIONS RESULTS
  24.  
  25. PARSE ARG Filenames
  26.  
  27. NL = '0A'X
  28. SQ = '27'X
  29. DQ = '22'X
  30. TRUE  = 1
  31. FALSE = 0
  32. TempDefaults = "T:TempADProDefaults"
  33.  
  34.  
  35. /*
  36. ** Save the current environment.
  37. */
  38.  
  39. SAVE_DEFAULTS TempDefaults
  40.  
  41.  
  42. /*
  43. ** Build list of images, just in case we need to loop.
  44. */
  45.  
  46. NumFiles = WORDS( Filenames )
  47. DO i=1 TO NumFiles
  48.     FrameFName.i = WORD( Filenames, i )
  49. END
  50.  
  51.  
  52. /*
  53. ** Load only the first image.
  54. */
  55.  
  56. LOADER "UNIVERSAL" FrameFName.1
  57. IF (RC ~= 0) THEN DO
  58.     ADPRO_TO_FRONT
  59.     OKAY1 "Error loading file:" || NL ||,
  60.         FrameFName.1
  61.     CALL ErrorOut 10
  62. END
  63.  
  64. CALL ErrorOut 0
  65.  
  66.  
  67. ErrorOut:
  68.     PARSE ARG ExitCode
  69.  
  70.     IF (EXISTS( TempDefaults )) THEN DO
  71.         LOAD_DEFAULTS TempDefaults
  72.         IF (RC ~= 0) THEN DO
  73.             ADPRO_TO_FRONT
  74.             OKAY1 "Error restoring settings."
  75.         END
  76.  
  77.         ADDRESS COMMAND "Delete >NIL:" TempDefaults
  78.     END
  79.  
  80.     EXIT ExitCode
  81.