$VER: AAShowDir 1.6 (2.6.00) (c) Neil Bothwick, Wirenet
Open a Workbench Window/Lister using either OS 3.5 or Directory Opus
*/
options results
address command
call addlib('rexxsupport.library',0,-30,0)
call addlib('rexxdossupport.library',0,-30,0)
parse arg path
if word(statef(path),1) = 'FILE' then path = PathPart(path)
select
when show('P','WORKBENCH') then OS = '3.5'
when show('P','SCALOS') then OS = 'Scalos'
when show('P','DOPUS.1') then do
address 'DOPUS.1' 'dopus version'
vers = translate(result,'.',' ')
select
when vers >= 5.8 then OS = 'MagII'
when vers >= 5.5 then OS = 'Opus'
otherwise OS = '3'
end
end
otherwise OS = '3'
end
select
when OS = 'MagII' then do
address 'DOPUS.1'
if exists(path'.info') then 'lister new fromicon' path
else 'lister new' path
end
when OS = 'Opus' then address 'DOPUS.1' 'lister new' path
when OS = '3.5' then address 'WORKBENCH' 'WINDOW "'path'" OPEN'
when OS = 'Scalos' then do
if ~exists('SCALOS:Tools/opendrawer') then call ExitMsg('Unable to find SCALOS:Tools/opendrawer*NPlease check your Scalos installation')
else 'SCALOS:Tools/opendrawer "'path'"'
end
otherwise call ExitMsg('This feature only works if you are running*Na Directory Opus or Scalos Workbench,*Nor you have OS 3.5. You will have to open*Nthe window from its Workbench icon at:*N*N'path)
end
exit
ExitMsg: procedure
parse arg msg
'RequestChoice >NIL: "Amiga Active CD" "'msg'" "I See"'
