Close by reopening, just feed genpal a table
This commit is contained in:
parent
589f4708bb
commit
7e8bdd2c2d
|
@ -20,13 +20,13 @@ local conf = {
|
||||||
},
|
},
|
||||||
}
|
}
|
||||||
|
|
||||||
local function genpan( Base, Sect, Num )
|
local function genpan( Base, Sect, Conf )
|
||||||
local Scroll = Base:Add("DPanel")
|
local Scroll = Base:Add("DPanel")
|
||||||
Scroll:DockPadding( 10, 5, 10, 5 )
|
Scroll:DockPadding( 10, 5, 10, 5 )
|
||||||
Scroll.Paint = function() end
|
Scroll.Paint = function() end
|
||||||
Sect:SetContents( Scroll )
|
Sect:SetContents( Scroll )
|
||||||
|
|
||||||
for i, v in ipairs( conf[Num] ) do
|
for i, v in ipairs( Conf ) do
|
||||||
if v[1] == 0 then
|
if v[1] == 0 then
|
||||||
local Butt = Scroll:Add("DCheckBoxLabel")
|
local Butt = Scroll:Add("DCheckBoxLabel")
|
||||||
Butt:Dock(TOP)
|
Butt:Dock(TOP)
|
||||||
|
@ -52,18 +52,21 @@ local function genpan( Base, Sect, Num )
|
||||||
end
|
end
|
||||||
|
|
||||||
function OpenSettingsMenu()
|
function OpenSettingsMenu()
|
||||||
local Base = vgui.Create("DFrame")
|
if IsValid( SettingsMenu ) then SettingsMenu:Remove() return end
|
||||||
|
local Base = vgui.Create("BFrame")
|
||||||
|
SettingsMenu = Base
|
||||||
Base:SetTitle("Settings")
|
Base:SetTitle("Settings")
|
||||||
Base:SetSize( 800, 600 )
|
Base:SetSize( 800, 600 )
|
||||||
Base:Center()
|
Base:Center()
|
||||||
Base:MakePopup()
|
Base:MakePopup()
|
||||||
|
Base:SetKeyboardInputEnabled( false )
|
||||||
|
|
||||||
do -- Sect 1
|
do -- Sect 1
|
||||||
local Sect = Base:Add("DCollapsibleCategory")
|
local Sect = Base:Add("DCollapsibleCategory")
|
||||||
Sect:Dock(TOP)
|
Sect:Dock(TOP)
|
||||||
Sect:SetLabel("Preferences")
|
Sect:SetLabel("HUD")
|
||||||
|
|
||||||
genpan( Base, Sect, 1 )
|
genpan( Base, Sect, conf[1] )
|
||||||
end
|
end
|
||||||
|
|
||||||
do -- Sect 2
|
do -- Sect 2
|
||||||
|
@ -71,12 +74,6 @@ function OpenSettingsMenu()
|
||||||
Sect:Dock(TOP)
|
Sect:Dock(TOP)
|
||||||
Sect:SetLabel("Controls")
|
Sect:SetLabel("Controls")
|
||||||
|
|
||||||
genpan( Base, Sect, 2 )
|
genpan( Base, Sect, conf[2] )
|
||||||
end
|
|
||||||
|
|
||||||
do -- Sect 3
|
|
||||||
local Sect = Base:Add("DCollapsibleCategory")
|
|
||||||
Sect:Dock(TOP)
|
|
||||||
Sect:SetLabel("HUD")
|
|
||||||
end
|
end
|
||||||
end
|
end
|
Loading…
Reference in New Issue