; 
; Gadget.pbi

Interface Gadget
  
  AddColumn (Position, Title$, Width)
  AddItem (Position, Text$, ImageID = #Null, Flags = #Null)
  BindEvent (*Callback, EventType = #Null)
  Delete ()
  Gadget ()
  GetText. s ()
  SetText (Text$)
EndInterface

DeclareModule Gadget
  
  Declare AddColumn (Gadget, Position, Title$, Width)
  Declare AddItem (Gadget, Position, Text$, ImageID = #Null, Flags = #Null)
  Declare Event__Bind (Gadget, *Callback, EventType = #Null)
  Declare Button (Gadget, x, y, Width, Height, Text$, Flags = #Null)
  Declare NewButton (Gadget, x, y, Width, Height, Text$, Flags = #Null)
;   Declare ButtonImage (Gadget, x, y, Width, Height, ImageID, Flags = #Null)
;   Declare Calendar (Gadget, x, y, Width, Height, Date = #Null, Flags = #Null)
;   Declare Canvas (Gadget, x, y, Width, Height, Flags = #Null)
;   Declare CanvasOutput (Gadget)
;   Declare CanvasVectorOutput (Gadget, Unit = #Null)
;   Declare ChangeListIconDisplay (Gadget, Mode)
;   Declare CheckBox (Gadget, x, y, Width, Height, Text$, Flags = #Null)
;   Declare ClearItemList (Gadget)
;   Declare ClearItems (Gadget)
;   Declare CloseList ()
;   Declare ComboBox (Gadget, x, y, Width, Height, Flags = #Null)
;   Declare Container (Gadget, x, y, Width, Height, Flags = #Null)
;   Declare CountItems (Gadget)
;   Declare CreateList (WindowID)
;   Declare Date (Gadget, x, y, Width, Height, Mask$ = #Null, Date = #Null, Flags = #Null)
;   Declare Disable (Gadget, State)
;   Declare Editor (Gadget, x, y, Width, Height, Flags = #Null)
;   Declare ExplorerCombo (Gadget, x, y, Width, Height, Directory$,, Flags = #Null)
;   Declare ExplorerList (Gadget, x, y, Width, Height, Directory$,, Flags = #Null)
;   Declare ExplorerTree (Gadget, x, y, Width, Height, Directory$,, Flags = #Null)
;   Declare Frame (Gadget, x, y, Width, Height, Text$, Flags = #Null)
;   Declare Free (Gadget)
;   Declare Height (Gadget, Mode = #Null)
;   Declare ID (Gadget)
;   Declare ItemID (Gadget, Item)
;   Declare ToolTip (Gadget, Text$)
;   Declare Type (Gadget)
;   Declare Width (Gadget, Mode = #Null)
;   Declare X (Gadget, Mode = #Null)
;   Declare Y (Gadget, Mode = #Null)
;   Declare GetActive ()
;   Declare GetAttribute (Gadget, Attribute)
;   Declare GetColor (Gadget, ColorType)
;   Declare GetData (Gadget)
;   Declare GetFont (Gadget)
;   Declare GetItemAttribute (Gadget, Item, Attribute, Column = #Null)
;   Declare GetItemColor (Gadget, Item, ColorType, Column = #Null)
;   Declare GetItemData (Gadget, Item)
;   Declare GetItemState (Gadget, Item)
;   Declare GetItemText (Gadget, Item, Column = #Null)
;   Declare GetState (Gadget)
  Declare$ GetText (Gadget)
;   Declare Hide (Gadget, State)
;   Declare HyperLink (Gadget, x, y, Width, Height, Text$, Color, Flags = #Null)
;   Declare Image (Gadget, x, y, Width, Height, ImageID, Flags = #Null)
;   Declare IPAddress (Gadget, x, y, Width, Height)
;   Declare Is (Gadget)
;   Declare ListIcon (Gadget, x, y, Width, Height, FirstColumnTitle$, FirstColumnWidth, Flags = #Null)
;   Declare ListView (Gadget, x, y, Width, Height, Flags = #Null)
;   Declare MDI (Gadget, x, y, Width, Height, SubMenu, MenuItem, Flags = #Null)
;   Declare OpenList (Gadget, Item = #Null)
;   Declare OpenGL (Gadget, x, y, Width, Height, Flags = #Null)
;   Declare Option (Gadget, x, y, Width, Height, Text$)
;   Declare Panel (Gadget, x, y, Width, Height)
;   Declare ProgressBar (Gadget, x, y, Width, Height, Minimum, Maximum, Flags = #Null)
;   Declare RemoveColumn (Gadget, Column)
;   Declare RemoveItem (Gadget, Position)
;   Declare Resize (Gadget, x, y, Width, Height)
;   Declare ScrollArea (Gadget, x, y, Width, Height, ScrollAreaWidth, ScrollAreaHeight, ScrollStep = #Null, Flags = #Null)
;   Declare ScrollBar (Gadget, x, y, Width, Height, Minimum, Maximum, PageLength, Flags = #Null)
;   Declare SetActive (Gadget)
;   Declare SetAttribute (Gadget, Attribute, Value)
;   Declare SetColor (Gadget, ColorType, Color)
;   Declare SetData (Gadget, Value)
;   Declare SetFont (Gadget, FontID)
;   Declare SetItemAttribute (Gadget, Item, Attribute, Value, Column = #Null)
;   Declare SetItemColor (Gadget, Item, ColorType, Color, Column = #Null)
;   Declare SetItemData (Gadget, Item, Value)
;   Declare SetItemImage (Gadget, Item, ImageID)
;   Declare SetItemState (Gadget, Item, State)
;   Declare SetItemText (Gadget, Item, Text$, Column = #Null)
;   Declare SetState (Gadget, State)
  Declare SetText (Gadget, Text$)
;   Declare Shortcut (Gadget, x, y, Width, Height, Shortcut)
;   Declare Spin (Gadget, x, y, Width, Height, Minimum, Maximum, Flags = #Null)
;   Declare Splitter (Gadget, x, y, Width, Height, Gadget1, Gadget2, Flags = #Null)
  Declare String (Gadget, x, y, Width, Height, Content$, Flags = #Null)
  Declare NewString (Gadget, x, y, Width, Height, Content$, Flags = #Null)
  Declare Text (Gadget, x, y, Width, Height, Text$, Flags = #Null)
  Declare NewText (Gadget, x, y, Width, Height, Text$, Flags = #Null)
;   Declare TrackBar (Gadget, x, y, Width, Height, Minimum, Maximum, Flags = #Null)
;   Declare Tree (Gadget, x, y, Width, Height, Flags = #Null)
;   Declare UnbindEvent (Gadget, *Callback, EventType = #Null)
;   Declare UseList (WindowID)
  Declare Web (Gadget, x, y, Width, Height, URL$)
  Declare NewWeb (Gadget, x, y, Width, Height, URL$)
  Declare WebPath (LibraryFile$, MozillaPath$ = #Empty$)
EndDeclareModule

Module Gadget
  
  Structure SGadget
    
    *VTABLE
    
    Gadget. i
  EndStructure
  
  Procedure AddColumn (Gadget, Position, Title$, Width)
    
    AddGadgetColumn (Gadget, Position, Title$, Width)
  EndProcedure
  
  Procedure IAddColumn (*this. SGadget, Position, Title$, Width)
    
    AddGadgetColumn (*this \ Gadget, Position, Title$, Width)
  EndProcedure
  
  Procedure AddItem (Gadget, Position, Text$, ImageID = #Null, Flags = #Null)
    
    ProcedureReturn AddGadgetItem (Gadget, Position, Text$, ImageID, Flags)
  EndProcedure
  
  Procedure IAddItem (*this. SGadget, Position, Text$, ImageID = #Null, Flags = #Null)
    
    ProcedureReturn AddGadgetItem (*this \ Gadget, Position, Text$, ImageID, Flags)
  EndProcedure
  
  Procedure Event__Bind (Gadget, *Callback, EventType = #Null)
    
    BindGadgetEvent (Gadget, *Callback, EventType)
  EndProcedure
  
  Procedure IEvent__Bind (*this. SGadget, *Callback, EventType = #Null)
    
    BindGadgetEvent (*this \ Gadget, *Callback, EventType)
  EndProcedure
  
  Procedure Button (Gadget, x, y, Width, Height, Text$, Flags = #Null)
    
    ProcedureReturn ButtonGadget (Gadget, x, y, Width, Height, Text$, Flags)
  EndProcedure
  
  Procedure NewButton (Gadget, x, y, Width, Height, Text$, Flags = #Null)
    
    Protected *this. SGadget
    
    *this = AllocateMemory (SizeOf (SGadget))
    
    If *this
      
      *this \ VTABLE = ? VTABLE_SGadget
      
      *this \ Gadget = ButtonGadget (Gadget, x, y, Width, Height, Text$, Flags)
      
      ProcedureReturn *this
    EndIf
  EndProcedure
;   
;   Procedure ButtonImage (Gadget, x, y, Width, Height, ImageID, Flags = #Null)
;     
;     ProcedureReturn ButtonImageGadget (Gadget, x, y, Width, Height, ImageID, Flags)
;   EndProcedure
;   
;   Procedure Calendar (Gadget, x, y, Width, Height, Date = #Null, Flags = #Null)
;     
;     ProcedureReturn CalendarGadget (Gadget, x, y, Width, Height, Date, Flags)
;   EndProcedure
;   
;   Procedure Canvas (Gadget, x, y, Width, Height, Flags = #Null)
;     
;     ProcedureReturn CanvasGadget (Gadget, x, y, Width, Height, Flags)
;   EndProcedure
;   
;   Procedure CanvasOutput (Gadget)
;     
;     ProcedureReturn CanvasOutput (Gadget)
;   EndProcedure
;   
;   Procedure CanvasVectorOutput (Gadget, Unit = #Null)
;     
;     ProcedureReturn CanvasVectorOutput (Gadget, Unit)
;   EndProcedure
;   
;   Procedure ChangeListIconDisplay (Gadget, Mode)
;     
;     ChangeListIconGadgetDisplay (Gadget, Mode)
;   EndProcedure
;   
;   Procedure CheckBox (Gadget, x, y, Width, Height, Text$, Flags = #Null)
;     
;     ProcedureReturn CheckBoxGadget (Gadget, x, y, Width, Height, Text$, Flags)
;   EndProcedure
;   
;   Procedure ClearItemList (Gadget)
;     
;     ClearGadgetItemList (Gadget)
;   EndProcedure
;   
;   Procedure ClearItems (Gadget)
;     
;     ClearGadgetItems (Gadget)
;   EndProcedure
;   
;   Procedure CloseList ()
;     
;     CloseGadgetList ()
;   EndProcedure
;   
;   Procedure ComboBox (Gadget, x, y, Width, Height, Flags = #Null)
;     
;     ProcedureReturn ComboBoxGadget (Gadget, x, y, Width, Height, Flags)
;   EndProcedure
;   
;   Procedure Container (Gadget, x, y, Width, Height, Flags = #Null)
;     
;     ProcedureReturn ContainerGadget (Gadget, x, y, Width, Height, Flags)
;   EndProcedure
;   
;   Procedure CountItems (Gadget)
;     
;     ProcedureReturn CountGadgetItems (Gadget)
;   EndProcedure
;   
;   Procedure CreateList (WindowID)
;     
;     ProcedureReturn CreateGadgetList (WindowID)
;   EndProcedure
;   
;   Procedure Date (Gadget, x, y, Width, Height, Mask$ = #Null, Date = #Null, Flags = #Null)
;     
;     ProcedureReturn DateGadget (Gadget, x, y, Width, Height, Mask$, Date, Flags)
;   EndProcedure
  
  Procedure IDelete (*this. SGadget)
    
    FreeStructure (*this)
  EndProcedure
;   
;   Procedure Disable (Gadget, State)
;     
;     DisableGadget (Gadget, State)
;   EndProcedure
;   
;   Procedure Editor (Gadget, x, y, Width, Height, Flags = #Null)
;     
;     ProcedureReturn EditorGadget (Gadget, x, y, Width, Height, Flags)
;   EndProcedure
;   
;   Procedure ExplorerCombo (Gadget, x, y, Width, Height, Directory$,, Flags = #Null)
;     
;     ProcedureReturn ExplorerComboGadget (Gadget, x, y, Width, Height, Directory$,, Flags)
;   EndProcedure
;   
;   Procedure ExplorerList (Gadget, x, y, Width, Height, Directory$,, Flags = #Null)
;     
;     ProcedureReturn ExplorerListGadget (Gadget, x, y, Width, Height, Directory$,, Flags)
;   EndProcedure
;   
;   Procedure ExplorerTree (Gadget, x, y, Width, Height, Directory$,, Flags = #Null)
;     
;     ProcedureReturn ExplorerTreeGadget (Gadget, x, y, Width, Height, Directory$,, Flags)
;   EndProcedure
;   
;   Procedure Frame (Gadget, x, y, Width, Height, Text$, Flags = #Null)
;     
;     ProcedureReturn FrameGadget (Gadget, x, y, Width, Height, Text$, Flags)
;   EndProcedure
;   
;   Procedure Free (Gadget)
;     
;     FreeGadget (Gadget)
;   EndProcedure
  
  Procedure IGadget (*this. SGadget)
    
    ProcedureReturn *this \ Gadget
  EndProcedure
;   
;   Procedure Height (Gadget, Mode = #Null)
;     
;     ProcedureReturn GadgetHeight (Gadget, Mode)
;   EndProcedure
;   
;   Procedure ID (Gadget)
;     
;     ProcedureReturn GadgetID (Gadget)
;   EndProcedure
;   
;   Procedure ItemID (Gadget, Item)
;     
;     ProcedureReturn GadgetItemID (Gadget, Item)
;   EndProcedure
;   
;   Procedure ToolTip (Gadget, Text$)
;     
;     GadgetToolTip (Gadget, Text$)
;   EndProcedure
;   
;   Procedure Type (Gadget)
;     
;     ProcedureReturn GadgetType (Gadget)
;   EndProcedure
;   
;   Procedure Width (Gadget, Mode = #Null)
;     
;     ProcedureReturn GadgetWidth (Gadget, Mode)
;   EndProcedure
;   
;   Procedure X (Gadget, Mode = #Null)
;     
;     ProcedureReturn GadgetX (Gadget, Mode)
;   EndProcedure
;   
;   Procedure Y (Gadget, Mode = #Null)
;     
;     ProcedureReturn GadgetY (Gadget, Mode)
;   EndProcedure
;   
;   Procedure GetActive ()
;     
;     ProcedureReturn GetActiveGadget ()
;   EndProcedure
;   
;   Procedure GetAttribute (Gadget, Attribute)
;     
;     ProcedureReturn GetGadgetAttribute (Gadget, Attribute)
;   EndProcedure
;   
;   Procedure GetColor (Gadget, ColorType)
;     
;     ProcedureReturn GetGadgetColor (Gadget, ColorType)
;   EndProcedure
;   
;   Procedure GetData (Gadget)
;     
;     ProcedureReturn GetGadgetData (Gadget)
;   EndProcedure
;   
;   Procedure GetFont (Gadget)
;     
;     ProcedureReturn GetGadgetFont (Gadget)
;   EndProcedure
;   
;   Procedure GetItemAttribute (Gadget, Item, Attribute, Column = #Null)
;     
;     ProcedureReturn GetGadgetItemAttribute (Gadget, Item, Attribute, Column)
;   EndProcedure
;   
;   Procedure GetItemColor (Gadget, Item, ColorType, Column = #Null)
;     
;     ProcedureReturn GetGadgetItemColor (Gadget, Item, ColorType, Column)
;   EndProcedure
;   
;   Procedure GetItemData (Gadget, Item)
;     
;     ProcedureReturn GetGadgetItemData (Gadget, Item)
;   EndProcedure
;   
;   Procedure GetItemState (Gadget, Item)
;     
;     ProcedureReturn GetGadgetItemState (Gadget, Item)
;   EndProcedure
;   
;   Procedure GetItemText (Gadget, Item, Column = #Null)
;     
;     ProcedureReturn GetGadgetItemText (Gadget, Item, Column)
;   EndProcedure
;   
;   Procedure GetState (Gadget)
;     
;     ProcedureReturn GetGadgetState (Gadget)
;   EndProcedure
  
  Procedure$ GetText (Gadget)
    
    ProcedureReturn GetGadgetText (Gadget)
  EndProcedure
  
  Procedure$ IGetText (*this. SGadget)
    
    ProcedureReturn GetGadgetText (*this \ Gadget)
  EndProcedure
;   
;   Procedure Hide (Gadget, State)
;     
;     HideGadget (Gadget, State)
;   EndProcedure
;   
;   Procedure HyperLink (Gadget, x, y, Width, Height, Text$, Color, Flags = #Null)
;     
;     ProcedureReturn HyperLinkGadget (Gadget, x, y, Width, Height, Text$, Color, Flags)
;   EndProcedure
;   
;   Procedure Image (Gadget, x, y, Width, Height, ImageID, Flags = #Null)
;     
;     ProcedureReturn ImageGadget (Gadget, x, y, Width, Height, ImageID, Flags)
;   EndProcedure
;   
;   Procedure IPAddress (Gadget, x, y, Width, Height)
;     
;     ProcedureReturn IPAddressGadget (Gadget, x, y, Width, Height)
;   EndProcedure
  
  Procedure Is (Gadget)
    
    ProcedureReturn IsGadget (Gadget)
  EndProcedure
;   
;   Procedure ListIcon (Gadget, x, y, Width, Height, FirstColumnTitle$, FirstColumnWidth, Flags = #Null)
;     
;     ProcedureReturn ListIconGadget (Gadget, x, y, Width, Height, FirstColumnTitle$, FirstColumnWidth, Flags)
;   EndProcedure
;   
;   Procedure ListView (Gadget, x, y, Width, Height, Flags = #Null)
;     
;     ProcedureReturn ListViewGadget (Gadget, x, y, Width, Height, Flags)
;   EndProcedure
;   
;   Procedure MDI (Gadget, x, y, Width, Height, SubMenu, MenuItem, Flags = #Null)
;     
;     ProcedureReturn MDIGadget (Gadget, x, y, Width, Height, SubMenu, MenuItem, Flags)
;   EndProcedure
;   
;   Procedure OpenList (Gadget, Item = #Null)
;     
;     OpenGadgetList (Gadget, Item)
;   EndProcedure
;   
;   Procedure OpenGL (Gadget, x, y, Width, Height, Flags = #Null)
;     
;     ProcedureReturn OpenGLGadget (Gadget, x, y, Width, Height, Flags)
;   EndProcedure
;   
;   Procedure Option (Gadget, x, y, Width, Height, Text$)
;     
;     ProcedureReturn OptionGadget (Gadget, x, y, Width, Height, Text$)
;   EndProcedure
;   
;   Procedure Panel (Gadget, x, y, Width, Height)
;     
;     ProcedureReturn PanelGadget (Gadget, x, y, Width, Height)
;   EndProcedure
;   
;   Procedure ProgressBar (Gadget, x, y, Width, Height, Minimum, Maximum, Flags = #Null)
;     
;     ProcedureReturn ProgressBarGadget (Gadget, x, y, Width, Height, Minimum, Maximum, Flags)
;   EndProcedure
;   
;   Procedure RemoveColumn (Gadget, Column)
;     
;     RemoveGadgetColumn (Gadget, Column)
;   EndProcedure
;   
;   Procedure RemoveItem (Gadget, Position)
;     
;     RemoveGadgetItem (Gadget, Position)
;   EndProcedure
;   
;   Procedure Resize (Gadget, x, y, Width, Height)
;     
;     ResizeGadget (Gadget, x, y, Width, Height)
;   EndProcedure
;   
;   Procedure ScrollArea (Gadget, x, y, Width, Height, ScrollAreaWidth, ScrollAreaHeight, ScrollStep = #Null, Flags = #Null)
;     
;     ProcedureReturn ScrollAreaGadget (Gadget, x, y, Width, Height, ScrollAreaWidth, ScrollAreaHeight, ScrollStep, Flags)
;   EndProcedure
;   
;   Procedure ScrollBar (Gadget, x, y, Width, Height, Minimum, Maximum, PageLength, Flags = #Null)
;     
;     ProcedureReturn ScrollBarGadget (Gadget, x, y, Width, Height, Minimum, Maximum, PageLength, Flags)
;   EndProcedure
;   
;   Procedure SetActive (Gadget)
;     
;     SetActiveGadget (Gadget)
;   EndProcedure
;   
;   Procedure SetAttribute (Gadget, Attribute, Value)
;     
;     SetGadgetAttribute (Gadget, Attribute, Value)
;   EndProcedure
;   
;   Procedure SetColor (Gadget, ColorType, Color)
;     
;     SetGadgetColor (Gadget, ColorType, Color)
;   EndProcedure
;   
;   Procedure SetData (Gadget, Value)
;     
;     SetGadgetData (Gadget, Value)
;   EndProcedure
;   
;   Procedure SetFont (Gadget, FontID)
;     
;     SetGadgetFont (Gadget, FontID)
;   EndProcedure
;   
;   Procedure SetItemAttribute (Gadget, Item, Attribute, Value, Column = #Null)
;     
;     SetGadgetItemAttribute (Gadget, Item, Attribute, Value, Column)
;   EndProcedure
;   
;   Procedure SetItemColor (Gadget, Item, ColorType, Color, Column = #Null)
;     
;     SetGadgetItemColor (Gadget, Item, ColorType, Color, Column)
;   EndProcedure
;   
;   Procedure SetItemData (Gadget, Item, Value)
;     
;     SetGadgetItemData (Gadget, Item, Value)
;   EndProcedure
;   
;   Procedure SetItemImage (Gadget, Item, ImageID)
;     
;     SetGadgetItemImage (Gadget, Item, ImageID)
;   EndProcedure
;   
;   Procedure SetItemState (Gadget, Item, State)
;     
;     SetGadgetItemState (Gadget, Item, State)
;   EndProcedure
;   
;   Procedure SetItemText (Gadget, Item, Text$, Column = #Null)
;     
;     SetGadgetItemText (Gadget, Item, Text$, Column)
;   EndProcedure
;   
;   Procedure SetState (Gadget, State)
;     
;     SetGadgetState (Gadget, State)
;   EndProcedure
  
  Procedure SetText (Gadget, Text$)
    
    SetGadgetText (Gadget, Text$)
  EndProcedure
  
  Procedure ISetText (*this. SGadget, Text$)
    
    SetGadgetText (*this \ Gadget, Text$)
  EndProcedure
;   
;   Procedure Shortcut (Gadget, x, y, Width, Height, Shortcut)
;     
;     ProcedureReturn ShortcutGadget (Gadget, x, y, Width, Height, Shortcut)
;   EndProcedure
;   
;   Procedure Spin (Gadget, x, y, Width, Height, Minimum, Maximum, Flags = #Null)
;     
;     ProcedureReturn SpinGadget (Gadget, x, y, Width, Height, Minimum, Maximum, Flags)
;   EndProcedure
;   
;   Procedure Splitter (Gadget, x, y, Width, Height, Gadget1, Gadget2, Flags = #Null)
;     
;     ProcedureReturn SplitterGadget (Gadget, x, y, Width, Height, Gadget1, Gadget2, Flags)
;   EndProcedure
  
  Procedure String (Gadget, x, y, Width, Height, Content$, Flags = #Null)
    
    ProcedureReturn StringGadget (Gadget, x, y, Width, Height, Content$, Flags)
  EndProcedure
  
  Procedure NewString (Gadget, x, y, Width, Height, Content$, Flags = #Null)
    
    Protected *this. SGadget
    
    *this = AllocateStructure (SGadget)
    
    If *this
      
      *this \ VTABLE = ? VTABLE_SGadget
      
      *this \ Gadget = StringGadget (Gadget, x, y, Width, Height, Content$, Flags)
      
      ProcedureReturn *this
    EndIf
  EndProcedure
  
  Procedure Text (Gadget, x, y, Width, Height, Text$, Flags = #Null)
    
    ProcedureReturn TextGadget (Gadget, x, y, Width, Height, Text$, Flags)
  EndProcedure
  
  Procedure NewText (Gadget, x, y, Width, Height, Text$, Flags = #Null)
    
    Protected *this. SGadget
    
    *this = AllocateStructure (SGadget)
    
    If *this
      
      *this \ VTABLE = ? VTABLE_SGadget
      
      *this \ Gadget = TextGadget (Gadget, x, y, Width, Height, Text$, Flags)
      
      ProcedureReturn *this
    EndIf
  EndProcedure
;   
;   Procedure TrackBar (Gadget, x, y, Width, Height, Minimum, Maximum, Flags = #Null)
;     
;     ProcedureReturn TrackBarGadget (Gadget, x, y, Width, Height, Minimum, Maximum, Flags)
;   EndProcedure
;   
;   Procedure Tree (Gadget, x, y, Width, Height, Flags = #Null)
;     
;     ProcedureReturn TreeGadget (Gadget, x, y, Width, Height, Flags)
;   EndProcedure
;   
;   Procedure UnbindEvent (Gadget, *Callback, EventType = #Null)
;     
;     UnbindGadgetEvent (Gadget, *Callback, EventType)
;   EndProcedure
;   
;   Procedure UseList (WindowID)
;     
;     ProcedureReturn UseGadgetList (WindowID)
;   EndProcedure
  
  Procedure Web (Gadget, x, y, Width, Height, URL$)
    
    ProcedureReturn WebGadget (Gadget, x, y, Width, Height, URL$)
  EndProcedure
  
  Procedure NewWeb (Gadget, x, y, Width, Height, URL$)
    
    Protected *this. SGadget
    
    *this = AllocateStructure (SGadget)
    
    If *this
      
      *this \ VTABLE = ? VTABLE_SGadget
      
      *this \ Gadget = WebGadget (Gadget, x, y, Width, Height, URL$)
      
      ProcedureReturn *this
    EndIf
  EndProcedure
  
  Procedure WebPath (LibraryFile$, MozillaPath$ = #Empty$)
    
    ProcedureReturn WebGadgetPath (LibraryFile$, MozillaPath$)
  EndProcedure
  
  DataSection
    
    VTABLE_SGadget:
    
    Data. i @ IAddColumn ()
    Data. i @ IAddItem ()
    Data. i @ IEvent__Bind ()
    Data. i @ IDelete ()
    Data. i @ IGadget ()
    Data. i @ IGetText ()
    Data. i @ ISetText ()
  EndDataSection
EndModule
; IDE Options = PureBasic 5.41 LTS (Windows - x86)