PureBoard

Code: Alles auswählen

  
If OpenWindow(#Window_0, 241, 240, 600, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
    If CreateGadgetList(WindowID())
      ComboBoxGadget(#URL, 0, 5, 560, 20, #PB_ComboBox_Editable)
      WebGadget(#WEB, 0, 25, 600, 275, "about:blank")
      ButtonGadget(#GOTO, 560, 5, 40, 20, "Goto")
      
    EndIf

  Repeat ; Start of the event loop
  
  Event = WaitWindowEvent() ; This line waits until an event is received from Windows
  
  WindowID = EventWindowID() ; The Window where the event is generated, can be used in the gadget procedures
  
  GadgetID = EventGadgetID() ; Is it a gadget event?
  
  EventType = EventType() ; The event type
  
  ;You can place code here, and use the result as parameters for the procedures
  
  If Event = #PB_EventGadget
    
    If GadgetID = #GOTO
      SetGadgetText(#WEB,GetGadgetText(#URL))
      URL.s = GetGadgetText(#WEB)
      AddGadgetItem(#URL,0,URL)
    EndIf
    ;If GadgetID = #WEB
      
    ;EndIf 
    
  EndIf
  
  Until Event = #PB_Event_CloseWindow ; End of the event loop

EndIf

Code: Alles auswählen

#ComboBoxGadget(#URL, 0, 5, 560, 200, #PB_ComboBox_Editable)