; PureBasic Visual Designer v3.81 build 1321


;- Window Constants
;
Enumeration
  #Window_0
;EndEnumeration

;- MenuBar Constants
;
;Enumeration
  #MenuBar_7
;EndEnumeration

;Enumeration
  #MENU_Start
  #MENU_ShutDown
  #MENU_MC
  #MENU_MD
  #MENU_ROM
  #MENU_Port
  #MENU_VBW
  #MENU_LBW
  #MENU_CBW
  #MENU_About
  #MENU_Exit
  #MENU_Buffer
  #MENU_PAS
;EndEnumeration

;- Gadget Constants
;
;Enumeration
  #UserList
  #OutChat
  #SendChat
  #ClearChat
  #Gadget_4
  #Gadget_5
  #ChatList
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 209, 208, 600, 321,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "My Server")
    If CreateMenu(#MenuBar_7, WindowID())
      MenuTitle("&Server")
      MenuItem(#MENU_Start, "&Restart")
      MenuItem(#MENU_ShutDown, "&ShutDown")
      OpenSubMenu("&Configure")
      OpenSubMenu("&Monitor")
      MenuItem(#MENU_MC, "&Chat")
      MenuItem(#MENU_MD, "&Data")
      CloseSubMenu()
      MenuItem(#MENU_ROM, "&Room")
      MenuItem(#MENU_Port, "&Port")
      MenuItem(#MENU_Buffer, "&Buffer")
      MenuItem(#MENU_PAS, "Password")
      CloseSubMenu()
      OpenSubMenu("&BandWidth")
      MenuItem(#MENU_VBW, "&View")
      MenuItem(#MENU_LBW, "&Lock")
      MenuItem(#MENU_CBW, "Configure")
      CloseSubMenu()
      MenuItem(#MENU_About, "&About")
      MenuBar()
      MenuItem(#MENU_Exit, "E&xit")
    EndIf
    
    If CreateGadgetList(WindowID())
      ListViewGadget(#UserList, 480, 20, 110, 240)
      GadgetToolTip(#UserList, "User List")
      StringGadget(#OutChat, 10, 270, 460, 20, "")
      GadgetToolTip(#OutChat, "Type your chat here")
      ButtonGadget(#SendChat, 480, 270, 50, 20, "Send")
      GadgetToolTip(#SendChat, "Send your chat")
      ButtonGadget(#ClearChat, 540, 270, 50, 20, "Clear")
      GadgetToolTip(#ClearChat, "Clear the chat window")
      TextGadget(#Gadget_4, 480, 0, 60, 20, "Users")
      TextGadget(#Gadget_5, 10, 0, 60, 20, "Chat")
      ListViewGadget(#ChatList, 10, 20, 460, 240)
      GadgetToolTip(#ChatList, "Chat Window")
      
    EndIf
  EndIf
EndProcedure
; ExecutableFormat=
; EOF