Procedure Web_CB(Gadget, url.s)
  If GetGadgetAttribute(0,#PB_Web_Busy)=0
    SetGadgetText(1, GetGadgetText(0))
  EndIf
  ProcedureReturn #True
EndProcedure

Flags = #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget
If OpenWindow(0, 0, 0, 500, 324, "KHomeBrowser", Flags)
  SmartWindowRefresh(0, 1)
  WebGadget(0, 4, 40, 492, 280, "http://yahoo.com")
  SetGadgetAttribute(0, #PB_Web_NavigationCallback, @Web_CB())
  StringGadget(1, 4, 10, 250, 20, "http://yahoo.com")
  ButtonGadget(2, 260, 12, 60, 20, "Перход")
  ButtonGadget(3, 330, 12, 25, 20, "<-")
  ButtonGadget(4, 355, 12, 25, 20, "->")
  ButtonGadget(5, 415, 12, 50, 20, "CTОП")
  Repeat
    Event=WaitWindowEvent()
    
    If Event = #PB_Event_SizeWindow
      ResizeGadget(0, #PB_Ignore, #PB_Ignore, WindowWidth(0)-8, WindowHeight(0)-44)
    ElseIf Event = #PB_Event_Gadget
      Select EventGadget()
        Case 2
          SetGadgetText(0, GetGadgetText(1))
        Case 3
          SetGadgetState(0, #PB_Web_Back)
        Case 4
          SetGadgetState(0, #PB_Web_Forward)
        Case 5
          SetGadgetState(0, #PB_Web_Stop)
      EndSelect
    EndIf
    Until Event = #PB_Event_CloseWindow
EndIf