home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / loadcatfromopus.idesk < prev    next >
Encoding:
Text File  |  1995-08-20  |  857 b   |  38 lines
  1. /* Use this script for examaining ImageDesk catalogs from DOpus.
  2.    The most important things you have to know for adding an
  3.    ImageDesk catalog class to DOpus:
  4.  
  5.       * The identification line has to be >>Match IDC<<
  6.       * The way to execute is >>AMIGA DOS<<
  7.       * The execution string has to be
  8.         >>rx <path of this file's directory>/LoadCatFromOpus.IDesk {f}<<
  9.  
  10. */
  11.  
  12. ImageDeskCall = "work:ImageDesk/imagedesk"
  13.  
  14. /*              ^- This is path and file name of imagedesk.
  15.                    Edit it for your requirements */
  16.  
  17. OPTIONS RESULTS
  18.  
  19. PARSE ARG FileName
  20.  
  21. if( ~SHOW(Ports,"IDESK_REXXPORT") ) then
  22. do
  23.     ADDRESS COMMAND
  24.     ImageDeskCall "CATFILE="FileName
  25. end
  26. else do
  27.     if( ADDRESS() ~= "IDESK_REXXPORT" ) then
  28.         ADDRESS IDESK_REXXPORT
  29.  
  30.     DESKTOFRONT
  31.     CLEANDESK
  32.     if(RC > 0) then exit
  33.     OPENCAT '"'FileName'"'
  34. end
  35.  
  36. exit
  37.  
  38.