/* $VER: HTMLEXT Modul: photogenics2.mod V 0.1.4 by Juan Manuel Wehrli 1999
   Voraussetzung:  Photogenics 2
 */

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 = OPENNEW then do
	if ~show('P','PHOTOGENICS.1') then do
		'c:WBrun <>NIL: Photogenics:Photogenics'
		'sys:rexxc/WaitForPort PHOTOGENICS.1'
	end
	ADDRESS PHOTOGENICS.1
	file = STRIP(file)
	PGSTOFRONT
	LOAD '"' || file || '"'
end


if befehl = OPENNEWS then do
	if ~show('P','PHOTOGENICS.1') then do
		'c:WBrun <>NIL: Photogenics:Photogenics'
		'sys:rexxc/WaitForPort PHOTOGENICS.1'
	end
	file = STRIP(file)
	ADDRESS PHOTOGENICS.1
	PGSTOFRONT
	LOAD '"' || file || '"'
end