; PureBasic Visual Designer v3.72b BETA build 2221


;- Window Constants
;
#Server = 0

;- MenuBar Constants
;
#MenuBar_1 = 0
#MENU_1  = 1
#MENU_2  = 2
#MENU_3  = 3
#MENU_17 = 4
#MENU_4  = 5
#MENU_6  = 6
#MENU_7  = 7
#MENU_8  = 8
#MENU_14 = 9
#MENU_11 = 10
#MENU_12 = 11

;- Gadget Constants
;
#Gadget_List = 0
#Gadget_3 = 1


Procedure Open_Server()
  If OpenWindow(#Server, 189, 127, 639, 480,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "Server Status")
    If CreateMenu(#MenuBar_1, WindowID())
      MenuTitle("&Server")
      MenuItem(#MENU_1, "&Kick User")
      MenuItem(#MENU_2, "&Shutdown 5 minutes")
      MenuItem(#MENU_3, "&Fast Shutdown")
      MenuItem(#MENU_17, "&Restart")
      MenuItem(#MENU_4, "E&xit    Alt - F4")
      MenuTitle("&View")
      MenuItem(#MENU_6, "&Users")
      MenuItem(#MENU_7, "&Servers")
      MenuItem(#MENU_8, "&Rooms")
      MenuItem(#MENU_14, "&All Data")
      MenuTitle("&Tools")
      ;MenuItem(#MENU_11, "&Admin")
      MenuItem(#MENU_12, "&Chat")
    EndIf
    
    If CreateGadgetList(WindowID())
      ListIconGadget(#Gadget_List, 0, 0, 820, 390, "User", 100, #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
      WebGadget(#Gadget_3, 0, 390, 900, 80, "about:blank")
      
    EndIf
  EndIf
EndProcedure
; ExecutableFormat=
; EOF