rem ' htmlview
url$ = "https://en.wikipedia.org"
sysgui = unt
open (sysgui)"X0"
sysgui! = bbjapi().getSysGui()
window! = sysgui!.addWindow(100,100,850,500,url$,$00090083$)
window!.setCallback(window!.ON_RESIZE,"resize")
window!.setCallback(window!.ON_CLOSE,"eoj")
htmlview! = window!.addHtmlView(101,25,25,800,450,url$)
htmlview!.setUrl(url$)
htmlview!.setCallback(htmlview!.ON_GAINED_FOCUS,"event")
htmlview!.setCallback(htmlview!.ON_HYPERLINK_ACTIVATE,"hyper")
htmlview!.setCallback(htmlview!.ON_HYPERLINK_ENTER,"hyper")
htmlview!.setCallback(htmlview!.ON_HYPERLINK_EXIT,"hyper")
htmlview!.setCallback(htmlview!.ON_LOST_FOCUS,"event")
htmlview!.setCallback(htmlview!.ON_MOUSE_ENTER,"event")
htmlview!.setCallback(htmlview!.ON_MOUSE_EXIT,"event")
htmlview!.setCallback(htmlview!.ON_PAGE_LOADED,"hyper")
htmlview!.setCallback(htmlview!.ON_POPUP_REQUEST,"event")
htmlview!.setCallback(htmlview!.ON_RIGHT_MOUSE_DOWN,"event")
process_events
eoj:
release
resize:
gosub event
width = event!.getWidth() - 50
height = event!.getHeight() - 50
htmlview!.setSize(width,height)
return
event:
event! = sysgui!.getLastEvent()
event$ = event!.getEventName()
print event$
return
hyper:
event! = sysgui!.getLastEvent()
event$ = event!.getEventName()
print event$," ",event!.getUrl()
return