On xubuntu (10.04) it comes up as plain text but in windows displays properly.
Thanks.
Code: Select all
HTML.s="<html>"+#CRLF$
HTML+"<head>"+#CRLF$
HTML+"<title></title>"+#CRLF$
HTML+"</head>"+#CRLF$
HTML+"<body>"+#CRLF$
HTML+"<p><em>this should be emphasized</em></p>"+#CRLF$
HTML+"<p><i>this should be italicized</i></p>"+#CRLF$
HTML+"</body></html>"
tmp_file.s=GetCurrentDirectory()+"tempfile.html"
If CreateFile(0,tmp_file)
WriteString(0,HTML)
CloseFile(0)
OpenWindow(0,0,0,300,500,"Test")
WebGadget(0,0,0,300,500,tmp_file)
Repeat
EvID=WaitWindowEvent()
Until EvID=#PB_Event_CloseWindow
DeleteFile(tmp_file)
EndIf

