/* $VER: HTMLEXT Modul: aweb.mod V 0.1.3 by Juan Manuel Wehrli 1999
   Voraussetzung: AWeb 3.3
 */

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',"AWEB.1") then do
		ADDRESS "AWEB.1" QUIT FORCE
	end
	exit
end

if Befehl = OPEN then do
	if ~show('P',"AWEB.1") then do
		'Run <>NIL: AWeb3:AWeb-II'
		"sys:rexxc/waitforport AWEB.1"
	end
	File = STRIP(File,,'"')
	File = COMPRESS(File)
	if File ~= "" then do
		ADDRESS "AWEB.1"
		SETCFG NAVIGATION 0
		SETCFG SHOWBUTTONS 0
		OPEN URL '"file:///' || File || '"' RELOAD
	end
	exit
end

if Befehl = OPENNEW then do
	DIR = GETENV(.htmlext.tmp)
	if ~show('P',"AWEB.1") then do
		'Run <>NIL: AWeb3:AWeb-II'
		"sys:rexxc/waitforport AWEB.1"
	end
	File = STRIP(File,,'"')
	File = STRIP(File)
	if File ~= "" then do
		ADDRESS "AWEB.1" NEW URL '"file:///' || File || '"' RELOAD
	end
	exit
end

if Befehl = OPENURL then do
	if ~show('P',"AWEB.1") then do
		'Run <>NIL: AWeb3:AWeb-II'
		"sys:rexxc/waitforport AWEB.1"
	end
	File = STRIP(File,,'"')
	File = COMPRESS(File)
	if File ~= "" then do
		ADDRESS "AWEB.1" OPEN URL '"' || File || '"' RELOAD
	end
	exit
end

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

if Befehl = UNICONIFY then do
	if show('P',"AWEB.1") then do
		 ADDRESS "AWEB.1" ICONIFY SHOW
	end
	exit
end

if Befehl = MKHTMLPIC then do
	if ~show('P',"AWEB.1") then do
		'Run <>NIL: AWeb3:AWeb-II'
		"sys:rexxc/waitforport AWEB.1"
	end
	File = STRIP(File)
	if File ~= "" then do
		ADDRESS "AWEB.1"
		OPEN URL '"file:///' || File || '"' RELOAD
		ADDRESS COMMAND 'wait 3'
		SAVEIFF "t:HTMLEXT/tmp.image.pic" NOICON WAIT
	end
end