OptionHouse.lua

--[[
	OptionHouse, by Shadow - Mal'Ganis (US)
	Thanks Tekkub and Cladhaire for the original idea and some of the code... which I mutilated shortly thereafter!
	This version further updated and modified by Phanx <addons@phanx.net>
]]

local OPTIONHOUSE, L = ...
setmetatable(L, { __index = function(t, k)
	local v = tostring(k)
	t[k] = v
	return v
end })

OptionHouse = {}
local tabFunctions = {}
local openedByMenu

-- TABS
local function setTab(id)
	local frame = OptionHouse.frame
	if( not frame.tabs[id] ) then return end

	if( frame.selectedTab ) then
		PanelTemplates_DeselectTab(frame.tabs[frame.selectedTab])
	end

	frame.selectedTab = id
	PanelTemplates_SelectTab(frame.tabs[id])
end

local function tabOnClick(self)
	local id = type(self) == "number" and self or self:GetID()
	setTab(id)

	local frame = OptionHouse.frame
	for tabID, tab in pairs(tabFunctions) do
		if tabID == id then
			if type(tab.func) == "function" then
				tab.func()
			else
				tab.handler[tab.func](tab.handler)
			end
		elseif type(tab.func) == "function" then
			tab.func(true)
		else
			tab.handler[tab.func](tab.handler, true)
		end
	end
end

function OptionHouse:CreateTab(text, id)
	if not self.frame then
		self:CreateUI()
	end

	local tab = self.frame.tabs[id]
	if not tab then
		tab = CreateFrame("Button", "$parentTab"..id, self.frame, "PanelTabButtonTemplate")
		tab:GetFontString():SetPoint("CENTER", 0, 2)
		-- tab:GetHighlightTexture():SetPoint("TOPLEFT", -1, 4)
		-- tab:GetHighlightTexture():SetPoint("BOTTOMRIGHT", 0, 0)
		tab:UnregisterEvent("DISPLAY_SIZE_CHANGED")
		tab:SetScript("OnEvent", nil)

		tab:SetID(id)
		tab:SetSize(115, 32)
		tab:SetScript("OnClick", tabOnClick)
		tab:SetScript("OnShow", function(tab) PanelTemplates_TabResize(tab, 10) end)

		tinsert(self.frame.tabs, tab)
	end

	tab:SetText(text)
	tab:Show()

	PanelTemplates_DeselectTab(tab)
	PanelTemplates_TabResize(tab, 0)

	if id > 1 then
		tab:SetPoint("TOPLEFT", self.frame.tabs[id - 1], "TOPRIGHT", -8, 0)
	else
		tab:SetPoint("TOPLEFT", self.frame, "BOTTOMLEFT", 15, 1)
	end
end

-- SCROLL FRAME
local function onVerticalScroll(self, offset)
	self.offset = ceil(offset / self.displayNum)

	if self.offset < 0 then
		self.offset = 0
	end

	self.updateFunc(self.updateHandler)
end

local function onParentMouseWheel(self, value)
	ScrollFrameTemplate_OnMouseWheel(self.scroll, value, self.scroll.bar)
end

function OptionHouse:UpdateScroll(scroll, totalRows)
	local max = (totalRows - scroll.displayNum) * scroll.displayNum

	-- Macs are unhappy if max is less then the min
	if max < 0 then
		max = 0
	end

	-- scroll.bar:SetMinMaxValues(0, max)

	if( totalRows > scroll.displayNum ) then
		scroll:Show()
		scroll.bar:Show()
		scroll.up:Show()
		scroll.down:Show()
		scroll.bar:GetThumbTexture():Show()
	else
		scroll:Hide()
		scroll.bar:Hide()
		scroll.up:Hide()
		scroll.down:Hide()
		scroll.bar:GetThumbTexture():Hide()
	end
end

local function onValueChanged(self, offset)
	self:GetParent():SetVerticalScroll(offset)
end

local function scrollButtonUp(self)
	local parent = self:GetParent()
	parent:SetValue(parent:GetValue() - (parent:GetHeight() / 2))
end

local function scrollButtonDown(self)
	local parent = self:GetParent()
	parent:SetValue(parent:GetValue() + (parent:GetHeight() / 2))

end

function OptionHouse:CreateScrollFrame(frame, displayNum, onScroll)
	frame:EnableMouseWheel(true)
	frame:SetScript("OnMouseWheel", onParentMouseWheel)

	local scroll = CreateFrame("ScrollFrame", "$parentScrollFrame", frame, "UIPanelScrollFrameTemplate")--"ButtonFrameTemplate")--"UIPanelScrollFrameTemplate2")
	scroll:SetPoint("TOPLEFT", 10, -65)
	scroll:SetPoint("BOTTOMRIGHT", -31, 30)
	
	scroll:EnableMouseWheel(true)
	scroll:SetWidth(16)
	scroll:SetHeight(370)
	scroll:HookScript("OnVerticalScroll", onVerticalScroll)

	scroll.offset = 0
	scroll.displayNum = displayNum
	scroll.updateHandler = frame
	scroll.updateFunc = onScroll

	scroll.bar = scroll.ScrollBar
	scroll.up = scroll.ScrollBar.ScrollUpButton
	scroll.down = scroll.ScrollBar.ScrollDownButton

	-- scroll.barUpTexture = _G[scroll:GetName().."Top"]
	-- scroll.barUpTexture:SetPoint("TOPLEFT", scroll.up, -6, 5)
	-- scroll.barUpTexture:SetWidth(29)

	-- scroll.barDownTexture = _G[scroll:GetName().."Bottom"]
	-- scroll.barDownTexture:SetPoint("BOTTOMLEFT", scroll.down, -6, -2)
	-- scroll.barDownTexture:SetWidth(29)

	frame.scroll = scroll
	return scroll
end

-- SEARCH INPUT
function OptionHouse:CreateSearchInput(frame, onChange)
	local search = CreateFrame("EditBox", "$parentSearchBox", frame, "SearchBoxTemplate")
	search:SetPoint("BOTTOMLEFT", frame, 10, 3)
	search:SetHeight(22)
	search:SetWidth(160)
	search:SetAutoFocus(false)
	search:HookScript("OnTextChanged", onChange)
	--search.Left:SetTexture("")
	--search.Right:SetTexture("")
	--search.Middle:SetTexture("")
	frame.search = search
	return search
end

-- Main container frame
function OptionHouse:CreateUI()
	if InCombatLockdown() then return end --DiscordGregory, error if you try to open UI in combat
	if self.frame then return end
	collectgarbage("collect") --DiscordGregory, safe to remove if you want
	local frame = CreateFrame("Frame", "OptionHouseFrame", UIParent, "ButtonFrameTemplate")
	frame:EnableMouse(true) -- @Phanx: don't allow clickthrough
	frame:SetMovable(true)
	frame:SetClampedToScreen(true)
	frame:SetFrameStrata("HIGH")
	frame:SetWidth(832)
	frame:SetHeight(647)
	frame:SetPoint("TOPLEFT", 0, -104)
	frame:RegisterForDrag("LeftButton")
	frame:SetScript("OnDragStart", function(self)
		frame:StartMoving()
	end)
	frame:SetScript("OnDragStop", function(self)
		frame:StopMovingOrSizing()
		frame.userPlaced = true
	end)

	-- If it's not hidden first, the panel layout becomes messed up
	-- because dynamically created frames are created shown
	frame:Hide()
	frame:SetScript("OnHide", function()
		if openedByMenu then
			openedByMenu = nil
			ShowUIPanel(GameMenuFrame)
		end
	end)

	-- Frame type info
	frame:SetAttribute("UIPanelLayout-defined", true)
	frame:SetAttribute("UIPanelLayout-enabled", true)
 	frame:SetAttribute("UIPanelLayout-area", "doublewide")
	frame:SetAttribute("UIPanelLayout-pushable", 3)
	frame:SetAttribute("UIPanelLayout-whileDead", true)
	tinsert(UISpecialFrames, "OptionHouseFrame")

	frame.TitleText = frame:CreateFontString("OptionHouseTitle", "OVERLAY", "GameTooltipText")
	frame.TitleText:SetText(L["Option House"])
	frame.portrait = frame:CreateTexture()
	SetPortraitToTexture(frame.portrait, "Interface\\ICONS\\Achievement_Faction_Craftsman")
	frame.portrait:SetPoint("TOPLEFT", -4, 12)
	frame.portrait:SetDrawLayer("OVERLAY")


	self.frame = frame

	-- Create tabs
	frame.tabs = {}
	for id, tab in pairs(tabFunctions) do
		self:CreateTab(tab.text, id)
	end
end

function OptionHouse:RegisterTab(text, func)
	tinsert(tabFunctions, { func = func, text = text })
	-- Will create all of the tabs when the frame is created if needed
	if not self.frame then return end
	self:CreateTab(text, #(tabFunctions))
end

function OptionHouse:Open(id)
	if self.frame and self.frame:IsShown() then return end
	self:CreateUI()
	tabOnClick(tonumber(tab) or 1)
	if self.frame.userPlaced then
		self.frame:Show()
	else
		ShowUIPanel(self.frame)
	end
end

function OptionHouse:Close()
	if not self.frame or not self.frame:IsShown() then return end
	if self.frame.userPlaced then
		self.frame:Hide()
	else
		HideUIPanel(self.frame)
	end
end

function OptionHouse:Toggle(tab)
	if self.frame and self.frame:IsShown() then
		self:Close()
	else
		self:Open(tab)
	end
end

-- Slash commands
SLASH_OPTIONHOUSE1 = "/opthouse"
SLASH_OPTIONHOUSE2 = "/optionhouse"
SLASH_OPTIONHOUSE3 = "/oh"
SlashCmdList["OPTIONHOUSE"] = function(tab)
	OptionHouse:Toggle(tab)
end