showHtmlAtRight: url
	"works only if browser is js-enabled, otherwise browser shows nothing"
	| path xOrig xMax yMax resizeStr jsStr xOrigStr |
	( path := self httpClientPath ) isNil
		ifTrue: [ ^nil ].
	xOrigStr := ( xOrig := self mainView frameRectangle corner x min: 300 ) 
 printString.

	xMax := Display extent x - xOrig.
	yMax := Display extent y.
     resizeStr := xMax printString, ',', yMax printString.
	jsStr := ' javascript:resizeTo(',
				resizeStr,
				');moveTo(',
				xOrigStr,
				',0);document.location.href='''.
    File execute: path, jsStr, url,''''
		"so far used only for www.visoracle.com -> does not need encapsualtion in ""
		"

	"javascript:resizeTo(1024,400);moveTo(0,0);document.location.href='http://www.p
 cmag.com'."