; PureBasic Visual Designer v3.62


;- Window Constants
;
#Window_0     = 0

;- MenuBar Constants
;
#MenuBar_0 = 0
#MENU_1  = 1
#MENU_2  = 2
#MENU_3  = 3
#MENU_4  = 4
#MENU_11 = 5
#MENU_13 = 6
#MENU_18 = 7
#MENU_23 = 8
#MENU_24 = 9
#MENU_20 = 10

;- Gadget Constants
;
#Gadget_1 = 99

;- StatusBar Constants
;
#StatusBar_0 = 0



Procedure Open_Window_0()
  If OpenWindow(#Window_0    , 209, 194, 600, 349,  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "Admin Tasks")
    If CreateMenu(#MenuBar_0, WindowID())
      MenuTitle("&File")
      MenuItem(#MENU_1, "&Open")
      MenuItem(#MENU_2, "&Close")
      MenuItem(#MENU_3, "&New")
      MenuBar()
      MenuItem(#MENU_4, "E&xit        Alt + F4")
      MenuTitle("&Admin")
      MenuItem(#MENU_11, "&Profile")
      MenuItem(#MENU_13, "&Cards")
      OpenSubMenu("&Games")
      MenuItem(#MENU_18, "&List")
      OpenSubMenu("&Add")
      MenuItem(#MENU_23, "&From Master")
      MenuItem(#MENU_24, "&User Entry")
      CloseSubMenu()
      MenuItem(#MENU_20, "&Remove")
      CloseSubMenu()
    EndIf
    
    If CreateStatusBar(#StatusBar_0, WindowID())
      AddStatusBarField(150)
      AddStatusBarField(150)
      AddStatusBarField(150)
      AddStatusBarField(150)
      StatusBarText(#StatusBar_0, 0, "User")
      StatusBarText(#StatusBar_0, 1, "Deck")
      StatusBarText(#StatusBar_0, 2, "Version")
      StatusBarText(#StatusBar_0, 3, "Points")
    EndIf
    
    If CreateGadgetList(WindowID())
      ListIconGadget(#Gadget_1, 10, 10, 580, 290, "Notes", 580, #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect)
      
    EndIf
  EndIf
EndProcedure
 
; ExecutableFormat=
; EOF