Navigation Callback not working - Default Browser

JackWebb · Post by **JackWebb** » Tue Aug 18, 2015 10:00 pm

Okay so..

I want to suppress navigation using IE from within a WebGadget, and use the default browser in it's place (the way it should be). The sample code below works fine and demonstrates what I am trying to accomplish. The problem is, it doesn't work in my working program. I suspect this may have something to do with the GadgetList but I've tried everything. Does anyone have an idea what may be going on?

I'm open to different method(s) of opening the default browser from within a WebGadget

Thank you in advance,
Jack

Code: Select all

;- Click on the news or download link
EnableExplicit

Declare NavigationCallback(Gadget, Url$)

If OpenWindow(0, 0, 0, 600, 300, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  WebGadget(0, 10, 10, 580, 280, "http://www.purebasic.com/")
  SetGadgetAttribute(0, #PB_Web_NavigationCallback, @NavigationCallback())
  Repeat
  Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Procedure NavigationCallback(Gadget, Url$)
  If Url$ = "http://www.purebasic.com/"
    Debug Url$
    ProcedureReturn #True
  Else
    Debug Url$
    RunProgram(Url$)
    ProcedureReturn #False
  EndIf
EndProcedure