; PureBasic Visual Designer v3.72b BETA build 2221


;- Window Constants
;
#Window_Opts = 0

;- Gadget Constants
;
#Options = 0
#Gadget_1 = 1
#Flag = 2
#Add_Type = 3
#Add_Flag = 4
#Del_Item = 5
#Save = 6
#Load = 7
#Exit = 8
#SaveAS = 9
#GLoad = 10


Procedure Open_Window_Opts()
  If OpenWindow(#Window_Opts, 216, 0, 569, 266,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Options for game >")
    If CreateGadgetList(WindowID())
      TreeGadget(#Options, 5, 25, 470, 205, #PB_Tree_AlwaysShowSelection | #PB_Tree_NoButtons | #PB_Tree_CheckBoxes)
      GadgetToolTip(#Options, "Options as listed in config file")
      TextGadget(#Gadget_1, 5, 5, 120, 25, "Game Options")
      StringGadget(#Flag, 5, 235, 290, 25, "")
      GadgetToolTip(#Flag, "/f  description")
      ButtonGadget(#Add_Type, 300, 235, 85, 25, "Add Type")
      GadgetToolTip(#Add_Type, "Type of game option")
      ButtonGadget(#Add_Flag, 390, 235, 85, 25, "Add Flag")
      GadgetToolTip(#Add_Flag, "Actual game flag")
      ButtonGadget(#Del_Item, 480, 235, 85, 25, "Remove Entry")
      GadgetToolTip(#Del_Item, "Remove entry from list")
      ButtonGadget(#Save, 480, 25, 85, 25, "Save")
      GadgetToolTip(#Save, "Save Settings")
      ButtonGadget(#Load, 480, 85, 85, 25, "Load")
      GadgetToolTip(#Load, "Load game options")
      ButtonGadget(#Exit, 480, 145, 85, 25, "Exit")
      GadgetToolTip(#Exit, "Exit setting without save")
      ButtonGadget(#SaveAS, 480, 55, 85, 25, "Save As")
      GadgetToolTip(#SaveAS, "Save settings as new")
      ButtonGadget(#GLoad, 480, 115, 85, 25, "Default")
      GadgetToolTip(#GLoad, "Load generic game options")
      
    EndIf
  EndIf
EndProcedure