; PureBasic Visual Designer v3.81 build 1321


;- Window Constants
;
Enumeration
  #Window_0
;EndEnumeration

;- MenuBar Constants
;
;Enumeration
  #MenuBar_0
;EndEnumeration

;Enumeration
  #MENU_1
  #MENU_2
  #MENU_3
  #MENU_7
  #MENU_4
  #MENU_8
  #MENU_5
;EndEnumeration

;- Gadget Constants
;
;Enumeration
  #Gadget_1
  #Gadget_2
  #Gadget_4
  #Gadget_5
  #Gadget_3
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 278,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
    If CreateMenu(#MenuBar_0, WindowID())
      MenuTitle("&Client")
      MenuItem(#MENU_1, "&Connect")
      MenuItem(#MENU_2, "&ISP")
      MenuItem(#MENU_3, "&Port")
      MenuItem(#MENU_7, "&Room")
      MenuItem(#MENU_4, "&Disconnect")
      MenuBar()
      MenuItem(#MENU_8, "&About")
      MenuItem(#MENU_5, "E&xit")
    EndIf
    
    If CreateGadgetList(WindowID())
      ButtonGadget(#Gadget_1, 530, 230, 60, 20, "&Send")
      ListViewGadget(#Gadget_2, 10, 10, 410, 210)
      StringGadget(#Gadget_4, 10, 230, 410, 20, "")
      ButtonGadget(#Gadget_5, 430, 230, 60, 20, "Clear")
      
      ;-
      ListIconGadget(#Gadget_3, 430, 10, 160, 210, "Column1", 100)
      
    EndIf
  EndIf
EndProcedure
; ExecutableFormat=Windows
; EOF