Code: Select all
; Procedure NavigationCallback(Gadget, Url$)
;
; ProcedureReturn #True
;
; EndProcedure
OpenWindow(0, 0, 0, 600, 300, "-", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
WebGadget(0, 10, 10, 580, 280, "https://lite.cnn.io/")
; SetGadgetAttribute(0, #PB_Web_NavigationCallback, @NavigationCallback())
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow : End
Case #PB_Event_Gadget
Select EventType()
Case #PB_EventType_DownloadEnd
If EventGadget() = 0
SetWindowTitle(0, GetGadgetItemText(0,#PB_Web_PageTitle))
done = 1
EndIf
EndSelect
EndSelect
ForEver