rem ' htmlview
url$ = "https://en.wikipedia.org"
sysgui = unt
open (sysgui)"X0"
sysgui! = bbjapi().getSysGui()
window! = sysgui!.addWindow(100,100,850,500,url$,$00090003$)
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")
window!.setCallback(window!.ON_CLOSE,"eoj")
process_events
eoj:
release
event:
event! = sysgui!.getLastEvent()
event$ = event!.toString()
event$ = event$(1,pos("@"=event$,-1)-1)
print event$
return
hyper:
event! = sysgui!.getLastEvent()
event$ = event!.toString()
event$ = event$(1,pos("@"=event$,-1)-1)
print event$," ",event!.getUrl()
return