gui.lua

local gui = _G.gui or {}
gui.unroll_draw = false
gui.panels = gui.panels or {}

function gui.CreatePanel(name, parent, store_in_parent)
	if not gui.init then gui.Initialize() end

	parent = parent or gui.world
	local child_i

	if store_in_parent then
		if type(store_in_parent) ~= "string" then store_in_parent = name end

		for i, v in ipairs(parent:GetChildren()) do
			if v == parent[store_in_parent] then child_i = i end
		end
	end

	local self = prototype.CreateDerivedObject("panel", name, nil, true)

	if not self then return NULL end

	self.animations = {}

	if parent then
		parent:AddChild(self)

		if child_i then
			list.remove(parent:GetChildren())
			list.insert(parent:GetChildren(), child_i, self)
		end
	end

	self:Initialize()

	if parent and parent.Skin then
		self:SetSkin(parent:GetSkin())
	else
		self:SetSkin(gui.GetSkin())
	end

	gui.panels[self] = self

	if store_in_parent then
		prototype.SafeRemove(parent[store_in_parent])
		parent[store_in_parent] = self
	end

	self:Layout()

	if store_in_parent and name == "base" then
		self:SetName(store_in_parent .. "(base)")
	end

	return self
end

function gui.CreateTemplate(class_name, ...)
	return prototype.CreateTemplate(class_name, ...)
end

function gui.RegisterPanel(META)
	META.TypeBase = "base"
	META.Type = nil
	prototype.Register(META, "panel")
end

function gui.RemovePanel(pnl)
	if pnl and pnl:IsValid() then pnl:Remove() end
end

function gui.Panic()
	if gui.world and gui.world:IsValid() then gui.world:Remove() end

	gui.Initialize()
end

local function try(children, filter)
	for i = #children, 1, -1 do
		local panel = children[i]

		if
			panel.Visible and
			not panel.IgnoreMouse and
			panel.mouse_over and
			(
				not filter or
				panel ~= filter
			)
		then
			if panel:HasChildren() then return gui.GetHoveringPanel(panel, filter) end

			--[[if panel.IgnoreMouse then
				for i, panel in ipairs(panel:GetParentList()) do
					if not panel.IgnoreMouse then
						return panel
					end
				end
			end]] return panel
		end
	end
end

local suppress
local sort = function(a, b)
	return a.MouseZPos > b.MouseZPos
end

function gui.GetHoveringPanel(panel, filter)
	if not suppress and gui.popup_panel.mouse_over then
		suppress = true
		local found = gui.GetHoveringPanel(gui.popup_panel, filter)
		suppress = false

		if found ~= gui.world then panel = found end
	end

	panel = panel or gui.world
	local children = panel:GetChildren()
	local ordered = {}

	for i, pnl in ipairs(children) do
		if pnl.MouseZPos then list.insert(ordered, pnl) end
	end

	local found

	if ordered[1] then
		list.sort(ordered, sort)
		found = try(ordered, filter)
	end

	if not found then found = try(children, filter) end

	if found then return found end

	--[[if panel.IgnoreMouse then
		for i, panel in ipairs(panel:GetParentList()) do
			if not panel.IgnoreMouse and panel.mouse_over then
				return panel
			end
		end
	end]] return panel.mouse_over and panel or gui.world
end

function gui.IsMouseHoveringPanel()
	return gui.init and gui.GetHoveringPanel() ~= gui.world or gui.focus_panel:IsValid()
end

do -- context menu helpers
	gui.current_menu = gui.current_menu or NULL

	function gui.SetActiveMenu(panel)
		if gui.current_menu:IsValid() then gui.current_menu:Remove() end

		gui.current_menu = panel or NULL
	end
end

do -- events
	gui.last_clicked = gui.last_clicked or NULL
	gui.hovering_panel = gui.hovering_panel or NULL
	gui.focus_panel = gui.focus_panel or NULL
	gui.keyboard_selected_panel = gui.keyboard_selected_panel or NULL

	function gui.SystemFileDrop(wnd, path)
		gui.UpdateMousePosition()
		local panel = gui.hovering_panel

		if panel:IsValid() and panel:IsMouseOver() then
			panel:OnSystemFileDrop(path)
		end
	end

	function gui.MouseInput(button, press)
		gui.RemovePanel(gui.active_tooltip)
		gui.UpdateMousePosition()
		local panel = gui.hovering_panel

		do -- context menus
			local panel = gui.current_menu

			if button == "button_1" and press and panel:IsValid() and not panel:IsMouseOver() then
				panel:Remove()
			end
		end

		if panel:IsValid() and panel:IsMouseOver() then
			event.Call("GUIPanelMouseInput", panel, button, press)
			panel:MouseInput(button, press)
			gui.last_clicked = panel
		end

		for panel in pairs(gui.panels) do
			panel:GlobalMouseInput(button, press)

			if (panel.AlwaysReceiveMouseInput and panel.mouse_over) or panel.mouse_capture then
				if gui.last_clicked ~= panel then
					event.Call("GUIPanelMouseInput", panel, button, press)
					panel:MouseInput(button, press)
				end
			end
		end
	end

	local i = 1

	function gui.KeyInput(button, press)
		local panel = gui.focus_panel

		if panel:IsValid() then
			panel:KeyInput(button, press)
			return true
		end
	end

	function gui.CharInput(char)
		local panel = gui.focus_panel

		if panel:IsValid() then
			panel:CharInput(char)
			return true
		end
	end

	function gui.UpdateMousePosition()
		if not gui.world.Children[1] then return end

		gui.hovering_panel = gui.GetHoveringPanel()

		if gui.hovering_panel:IsValid() then
			local cursor = gui.hovering_panel:GetCursor()

			if gui.hovering_panel.GreyedOut then cursor = "no" end

			if gui.active_cursor ~= cursor then
				window.SetCursor(cursor)
				gui.active_cursor = cursor
			end
		end

		gui.mouse_pos.x, gui.mouse_pos.y = gfx.GetMousePosition()
	end

	function gui.DrawMenu(dt)
		if not gui.world.Children[1] then return end

		if gui.threedee then
			--render2d.camera:Start3D2DEx(Vec3(1, -5, 10), Deg3(-90, 180, 0), Vec3(8, 8, 10))
			render2d.camera:Start3D2DEx(Vec3(0, 0, 0), Ang3(0, 0, 0), Vec3(20, 20, 20))
		end

		gui.UpdateMousePosition()

		--render2d.EnableStencilClipping()
		if gui.unroll_draw then
			if not gui.unrolled_draw then
				gui.panels_unroll = {}
				gui.world.unroll_i = 1

				for i, v in ipairs(gui.world:GetChildrenList()) do
					v.unroll_i = i + 1
					gui.panels_unroll[i] = v
				end

				local str = {"local panels = gui.panels_unroll"}

				local function add_children_to_list(parent, str, level)
					list.insert(
						str,
						(
							"%sif panels[%i] and panels[%i].Visible then"
						):format(("\t"):rep(level), parent.unroll_i, parent.unroll_i)
					)
					list.insert(str, ("%spanels[%i]:PreDraw()"):format(("\t"):rep(level + 1), parent.unroll_i))

					for i, child in ipairs(parent:GetChildren()) do
						level = level + 1
						add_children_to_list(child, str, level)
						level = level - 1
					end

					list.insert(str, ("%spanels[%i]:PostDraw()"):format(("\t"):rep(level + 1), parent.unroll_i))
					list.insert(str, ("%send"):format(("\t"):rep(level)))
				end

				add_children_to_list(gui.world, str, 0)
				str = list.concat(str, "\n")
				vfs.Write("data/gui2_draw.lua", str)
				gui.unrolled_draw = loadstring(str, "gui2_unrolled_draw")
			end

			gui.unrolled_draw()
		else
			gui.world:Draw()
		end

		--render2d.DisableStencilClipping()
		render2d.SetWorldMatrix()

		if gui.threedee then render2d.camera:End3D2D() end
	end
end

do -- skin
	function gui.SetSkin(skin, skip_update_panels)
		if type(skin) == "string" then skin = gui.GetRegisteredSkin(skin).skin end

		local old = gui.GetSkin() and gui.GetSkin().name
		gui.skin = skin

		if not old then return end

		if skip_update_panels then return end

		for panel in pairs(gui.panels) do
			panel:SetSkin(skin)
			panel:ReloadStyle()
		end
	end

	function gui.GetSkin()
		return gui.skin
	end

	gui.registered_skins = {}

	function gui.GetRegisteredSkin(name)
		if gui.registered_skins[name] then
			local tbl = gui.registered_skins[name]

			if not tbl.skin then
				local skin = tbl:Build()
				skin.name = tbl.Name
				skin.GetScale = tbl.GetScale
				tbl.skin = skin
			end

			return tbl
		end

		error("no such skin: " .. name)
	end

	function gui.GetRegisteredSkins()
		local out = {}

		for k, v in pairs(gui.registered_skins) do
			list.insert(out, k)
		end

		return out
	end

	function gui.RegisterSkin(tbl)
		gui.registered_skins[tbl.Name] = tbl

		if RELOAD or gui.force_reload then
			if not tbl.skin then
				local skin = tbl:Build()
				skin.name = tbl.Name
				skin.GetScale = tbl.GetScale
				tbl.skin = skin
			end

			for k, v in pairs(gui.panels) do
				if v:HasSkin(tbl.Name) then v:SetSkin(tbl.Name) end
			end
		end
	end
end

do -- gui scaling
	gui.scale_multiplier = 1

	function gui.SetScale(scale)
		scale = scale or 1
		gui.scale_multiplier = scale

		for panel in pairs(gui.panels) do
			if panel.GetText then panel:SetText(panel:GetText()) end

			panel:Layout()
		end

		gui.force_reload = true
		runfile("lua/libraries/graphics/gui/skins/*", gui)
		gui.force_reload = nil
	end

	function gui.GetScale()
		return gui.scale_multiplier
	end
end

function gui.CreateWorld()
	local world = gui.CreatePanel("base")
	world:SetName("gui world")
	world:UnParent()
	world:SetPosition(Vec2(0, 0))
	world:SetSize(window.GetSize())
	world:SetCursor("arrow")
	world:SetTrapChildren(true)
	world:SetNoDraw(true)
	--world:SetMargin(Rect(10, 10, 10, 10))
	world:SetMargin(Rect(0, 0, 0, 0))
	world:SetPadding(Rect(0, 0, 0, 0))
	world.is_world = true
	return world
end

function gui.Initialize()
	gui.init = true
	runfile("lua/libraries/graphics/gui/skins/*", gui)
	pvars.Setup2(
		{
			key = "gui_skin",
			default = "gwen_dark",
			list = gui.GetRegisteredSkins(),
			callback = function(str)
				gui.SetSkin(str, true)
			end,
		}
	)
	gui.SetSkin(pvars.Get("gui_skin"))
	gui.RemovePanel(gui.world)
	gui.world = gui.CreateWorld()
	gui.popup_panel = NULL
	gui.mouse_pos = Vec2()

	event.AddListener(
		"FontChanged",
		"gui",
		function(name)
			gui.world:Layout()
		end,
		{on_error = system.OnError}
	)

	event.AddListener("DrawGUI", "gui", gui.DrawMenu, {on_error = system.OnError})
	event.AddListener("MouseInput", "gui", gui.MouseInput, {on_error = system.OnError})
	event.AddListener("KeyInputRepeat", "gui", gui.KeyInput, {on_error = system.OnError})
	event.AddListener("CharInput", "gui", gui.CharInput, {on_error = system.OnError})
	event.AddListener("WindowDrop", "gui", gui.SystemFileDrop, {on_error = system.OnError})
	local window = render.GetWindow()

	event.AddListener(
		"WindowFramebufferResized",
		"gui",
		function(wnd, size)
			if window == wnd then
				gui.world:SetSize(size)
				gui.world:Layout(true)
			end
		end,
		{on_error = system.OnError}
	)

	-- should this be here?
	do -- task bar (well frame bar is more appropriate since the frame control adds itself to this)
		function gui.GetTaskBar()
			if gui.task_bar then return gui.task_bar end

			local S = gui.skin:GetScale()
			local bar = gui.CreatePanel("base")
			bar:SetStyle("gradient")
			bar:SetVisible(false)
			bar:SetOthersAlwaysCollide(true)
			bar:SetCollisionGroup("taskbar")
			bar.buttons = {}

			function bar:AddButton(text, key, callback, callback2)
				self:SetVisible(true)
				local button = self.buttons[key] or gui.CreatePanel("text_button", self)
				button:SetText(text)
				button.OnPress = callback
				button.OnRightClick = callback2
				button:SetupLayout("center_left")
				self.buttons[key] = button
				self:Layout()
			end

			function bar:RemoveButton(key)
				gui.RemovePanel(self.buttons[key])
				self.buttons[key] = nil

				if not next(self.buttons) then self:SetVisible(false) end

				self:Layout()
			end

			function bar:OnLayout(S)
				self:SetHeight(S * 14)
				self:SetPadding(Rect() + S * 2)

				for i, v in ipairs(self:GetChildren()) do
					v:SetPadding(Rect() + 2.5 * S)
					v:SizeToText()
				end

				self:MoveDown()
				self:FillX()
			end

			bar:Layout(true)
			gui.task_bar = bar
			return bar
		end
	end
end

runfile("base_panel.lua", gui)
RELOAD = nil
runfile("panels/*", gui)
runfile("helpers.lua", gui)
runfile("lsx.lua", gui)
gui.RegisterLSXNodes()
--for k,v in pairs(event.GetTable()) do for k2,v2 in pairs(v) do if type(v2.id)=='string' and v2.id:lower():find"aahh" or v2.id == "gui" then event.RemoveListener(k,v2.id) end end end
return gui