/* $VER: HTMLEXT Modul: Voyager.mod V 0.1.2 by Juan Manuel Wehrli 1999
   Voraussetzung: Voyager 2.95 oder besser
   Dieses Modul hat noch kleine Fehler beim Reload, das heisst,
   Voyager unterstützt das nicht immer korrekt.
 */

if ~show("L",rexxreqtools.library) then do
		call addlib("rexxreqtools.library",0,-30,0)
end
if ~show("L",rexxtricks.library) then do
		call addlib("rexxtricks.library",0,-30,0)
end
NL = '0a'x


PARSE ARG Befehl File
OPTIONS RESULTS
ADDRESS COMMAND

if Befehl = QUIT then do
	if show('P',"VOYAGER") then do
		ADDRESS "VOYAGER" QUIT
	end
	exit
end


if Befehl = OPEN then do
	if ~show('P',"VOYAGER") then do
		'Run <>NIL: voyager:V'
		"sys:rexxc/waitforport VOYAGER"
	end
	File = STRIP(File,,'"')
	File = STRIP(File)
	if File ~= "" then do
		ADDRESS "VOYAGER" OPENURL '"file:///' || File || '"'
	end
	exit
end

if Befehl = OPENNEW then do
	DIR = GETENV(.htmlext.tmp)
	if ~show('P',"VOYAGER") then do
		'Run <>NIL: voyager:v'
		"sys:rexxc/waitforport VOYAGER"
	end
	File = STRIP(File,,'"')
	File = STRIP(File)
	if File ~= "" then do
		ADDRESS "VOYAGER" OPENURL '"file:///' || File || '"' NEWWIN
	end
	exit
end


if Befehl = OPENURL then do
	if ~show('P',"VOYAGER") then do
		'Run <>NIL: SYS:Network/Voyager/V'
		"sys:rexxc/waitforport VOYAGER"
	end
	File = STRIP(File,,'"')
	File = COMPRESS(File)
	if File ~= "" then do
		ADDRESS "VOYAGER" OPENURL '"' || File || '"'
	end
	exit
end

if Befehl = ICONIFY then do
	if show('P',"VOYAGER") then do
		ADDRESS "VOYAGER" HIDE
	end
	exit
end

if Befehl = UNICONIFY then do
	if show('P',"VOYAGER") then do
		 ADDRESS "VOYAGER" SHOW
	end
	exit
end