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