home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 5 / AACD05.ISO / CDTools / S / AAShowDir < prev    next >
Text File  |  1999-12-15  |  1KB  |  36 lines
  1. /*
  2.     $VER: AAShowDir 1.3 (9.12.99) (c) Neil Bothwick, Wirenet
  3.     Open a Workbench Window/Lister using either OS 3.5 or Directory Opus
  4. */
  5.  
  6. options results
  7. address command
  8. call addlib('rexxsupport.library',0,-30,0)
  9. call addlib('rexxdossupport.library',0,-30,0)
  10. parse arg path
  11. if word(statef(path),1) = 'FILE' then path = PathPart(path)
  12. options failat 21
  13.  
  14. OS = '3'
  15. 'version >NIL: dopus5.library 63'
  16. if RC = 0 then OS = 'Opus'
  17. 'version >NIL: version 44'
  18. if RC = 0 then OS = '3.5'
  19. 'version >NIL: dopus5.library 68'
  20. if RC = 0 then OS = 'MagII'
  21. options failat 10
  22.  
  23. select
  24.     when  OS = 'MagII' then do
  25.         address 'DOPUS.1'
  26.         if exists(path'.info') then 'lister new fromicon' path
  27.         else 'lister new' path
  28.         end
  29.     when OS = 'Opus' then address 'DOPUS.1' 'lister new' path
  30.     when OS = '3.5' then address 'WORKBENCH' 'WINDOW "'path'" OPEN'
  31.     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"'
  32.     end
  33.  
  34.  
  35.  
  36.