home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 1 / AACD01.ISO / CDTools / S / ShowDir < prev    next >
Encoding:
Text File  |  1999-09-02  |  931 b   |  32 lines
  1. /* Open a Workbench Window/Lister using eith OS 3.5 or Directory Opus */
  2.  
  3. parse arg path
  4. options results
  5. address command
  6. call addlib('rexxsupport.library',0,-30,0)
  7. call addlib('rexxdossupport.library',0,-30,0)
  8. options failat 21
  9.  
  10. OS = '3'
  11. 'version >NIL: dopus5.library 65'
  12. if RC = 0 then OS = 'Opus'
  13. 'version >NIL: version 44'
  14. if RC = 0 then OS = '3.5'
  15. 'version >NIL: dopus5.library 68'
  16. if RC = 0 then OS = 'MagII'
  17. options failat 10
  18.  
  19. select
  20.     when  OS = 'MagII' then do
  21.         address 'DOPUS.1'
  22.         if exists(path'.info') then 'lister new fromicon' path
  23.         else 'lister new' path
  24.         end
  25.     when OS = 'Opus' then address 'DOPUS.1' 'lister new' path
  26.     when OS = '3.5' then 'AACD01:System/C/OpenWorkbenchObject' path
  27.     otherwise 'RequestChoice >NIL: "Amiga Active CD" "This feature only works if you are running*N Directory Opus Magellan as Workbench,*Nor you have OS 3.5. You will have to open*Nthe window from its Workbench icon" "Sorry"'
  28.     end
  29.  
  30.  
  31.  
  32.