Xiiph@0: --[[-----------------------------------------------------------------------------
Xiiph@0: DropdownGroup Container
Xiiph@0: Container controlled by a dropdown on the top.
Xiiph@0: -------------------------------------------------------------------------------]]
Xiiph@0: local Type, Version = "DropdownGroup", 21
Xiiph@0: local AceGUI = LibStub and LibStub("AceGUI-3.0", true)
Xiiph@0: if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end
Xiiph@0: 
Xiiph@0: -- Lua APIs
Xiiph@0: local assert, pairs, type = assert, pairs, type
Xiiph@0: 
Xiiph@0: -- WoW APIs
Xiiph@0: local CreateFrame = CreateFrame
Xiiph@0: 
Xiiph@0: --[[-----------------------------------------------------------------------------
Xiiph@0: Scripts
Xiiph@0: -------------------------------------------------------------------------------]]
Xiiph@0: local function SelectedGroup(self, event, value)
Xiiph@0: 	local group = self.parentgroup
Xiiph@0: 	local status = group.status or group.localstatus
Xiiph@0: 	status.selected = value
Xiiph@0: 	self.parentgroup:Fire("OnGroupSelected", value)
Xiiph@0: end
Xiiph@0: 
Xiiph@0: --[[-----------------------------------------------------------------------------
Xiiph@0: Methods
Xiiph@0: -------------------------------------------------------------------------------]]
Xiiph@0: local methods = {
Xiiph@0: 	["OnAcquire"] = function(self)
Xiiph@0: 		self.dropdown:SetText("")
Xiiph@0: 		self:SetDropdownWidth(200)
Xiiph@0: 		self:SetTitle("")
Xiiph@0: 	end,
Xiiph@0: 
Xiiph@0: 	["OnRelease"] = function(self)
Xiiph@0: 		self.dropdown.list = nil
Xiiph@0: 		self.status = nil
Xiiph@0: 		for k in pairs(self.localstatus) do
Xiiph@0: 			self.localstatus[k] = nil
Xiiph@0: 		end
Xiiph@0: 	end,
Xiiph@0: 
Xiiph@0: 	["SetTitle"] = function(self, title)
Xiiph@0: 		self.titletext:SetText(title)
Xiiph@0: 		self.dropdown.frame:ClearAllPoints()
Xiiph@0: 		if title and title ~= "" then
Xiiph@0: 			self.dropdown.frame:SetPoint("TOPRIGHT", -2, 0)
Xiiph@0: 		else
Xiiph@0: 			self.dropdown.frame:SetPoint("TOPLEFT", -1, 0)
Xiiph@0: 		end
Xiiph@0: 	end,
Xiiph@0: 
Xiiph@0: 	["SetGroupList"] = function(self,list,order)
Xiiph@0: 		self.dropdown:SetList(list,order)
Xiiph@0: 	end,
Xiiph@0: 
Xiiph@0: 	["SetStatusTable"] = function(self, status)
Xiiph@0: 		assert(type(status) == "table")
Xiiph@0: 		self.status = status
Xiiph@0: 	end,
Xiiph@0: 
Xiiph@0: 	["SetGroup"] = function(self,group)
Xiiph@0: 		self.dropdown:SetValue(group)
Xiiph@0: 		local status = self.status or self.localstatus
Xiiph@0: 		status.selected = group
Xiiph@0: 		self:Fire("OnGroupSelected", group)
Xiiph@0: 	end,
Xiiph@0: 
Xiiph@0: 	["OnWidthSet"] = function(self, width)
Xiiph@0: 		local content = self.content
Xiiph@0: 		local contentwidth = width - 26
Xiiph@0: 		if contentwidth < 0 then
Xiiph@0: 			contentwidth = 0
Xiiph@0: 		end
Xiiph@0: 		content:SetWidth(contentwidth)
Xiiph@0: 		content.width = contentwidth
Xiiph@0: 	end,
Xiiph@0: 
Xiiph@0: 	["OnHeightSet"] = function(self, height)
Xiiph@0: 		local content = self.content
Xiiph@0: 		local contentheight = height - 63
Xiiph@0: 		if contentheight < 0 then
Xiiph@0: 			contentheight = 0
Xiiph@0: 		end
Xiiph@0: 		content:SetHeight(contentheight)
Xiiph@0: 		content.height = contentheight
Xiiph@0: 	end,
Xiiph@0: 
Xiiph@0: 	["LayoutFinished"] = function(self, width, height)
Xiiph@0: 		self:SetHeight((height or 0) + 63)
Xiiph@0: 	end,
Xiiph@0: 
Xiiph@0: 	["SetDropdownWidth"] = function(self, width)
Xiiph@0: 		self.dropdown:SetWidth(width)
Xiiph@0: 	end
Xiiph@0: }
Xiiph@0: 
Xiiph@0: --[[-----------------------------------------------------------------------------
Xiiph@0: Constructor
Xiiph@0: -------------------------------------------------------------------------------]]
Xiiph@0: local PaneBackdrop  = {
Xiiph@0: 	bgFile = "Interface\\ChatFrame\\ChatFrameBackground",
Xiiph@0: 	edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border",
Xiiph@0: 	tile = true, tileSize = 16, edgeSize = 16,
Xiiph@0: 	insets = { left = 3, right = 3, top = 5, bottom = 3 }
Xiiph@0: }
Xiiph@0: 
Xiiph@0: local function Constructor()
Xiiph@0: 	local frame = CreateFrame("Frame")
Xiiph@0: 	frame:SetHeight(100)
Xiiph@0: 	frame:SetWidth(100)
Xiiph@0: 	frame:SetFrameStrata("FULLSCREEN_DIALOG")
Xiiph@0: 
Xiiph@0: 	local titletext = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal")
Xiiph@0: 	titletext:SetPoint("TOPLEFT", 4, -5)
Xiiph@0: 	titletext:SetPoint("TOPRIGHT", -4, -5)
Xiiph@0: 	titletext:SetJustifyH("LEFT")
Xiiph@0: 	titletext:SetHeight(18)
Xiiph@0: 
Xiiph@0: 	local dropdown = AceGUI:Create("Dropdown")
Xiiph@0: 	dropdown.frame:SetParent(frame)
Xiiph@0: 	dropdown.frame:SetFrameLevel(dropdown.frame:GetFrameLevel() + 2)
Xiiph@0: 	dropdown:SetCallback("OnValueChanged", SelectedGroup)
Xiiph@0: 	dropdown.frame:SetPoint("TOPLEFT", -1, 0)
Xiiph@0: 	dropdown.frame:Show()
Xiiph@0: 	dropdown:SetLabel("")
Xiiph@0: 
Xiiph@0: 	local border = CreateFrame("Frame", nil, frame)
Xiiph@0: 	border:SetPoint("TOPLEFT", 0, -26)
Xiiph@0: 	border:SetPoint("BOTTOMRIGHT", 0, 3)
Xiiph@0: 	border:SetBackdrop(PaneBackdrop)
Xiiph@0: 	border:SetBackdropColor(0.1,0.1,0.1,0.5)
Xiiph@0: 	border:SetBackdropBorderColor(0.4,0.4,0.4)
Xiiph@0: 
Xiiph@0: 	--Container Support
Xiiph@0: 	local content = CreateFrame("Frame", nil, border)
Xiiph@0: 	content:SetPoint("TOPLEFT", 10, -10)
Xiiph@0: 	content:SetPoint("BOTTOMRIGHT", -10, 10)
Xiiph@0: 
Xiiph@0: 	local widget = {
Xiiph@0: 		frame       = frame,
Xiiph@0: 		localstatus = {},
Xiiph@0: 		titletext   = titletext,
Xiiph@0: 		dropdown    = dropdown,
Xiiph@0: 		border      = border,
Xiiph@0: 		content     = content,
Xiiph@0: 		type        = Type
Xiiph@0: 	}
Xiiph@0: 	for method, func in pairs(methods) do
Xiiph@0: 		widget[method] = func
Xiiph@0: 	end
Xiiph@0: 	dropdown.parentgroup = widget
Xiiph@0: 	
Xiiph@0: 	return AceGUI:RegisterAsContainer(widget)
Xiiph@0: end
Xiiph@0: 
Xiiph@0: AceGUI:RegisterWidgetType(Type, Constructor, Version)