WoWInterface SVN mNameplates

local AceGUI = LibStub("AceGUI-3.0")

-- Lua APIs
local assert, pairs, type = assert, pairs, type

-- WoW APIs
local CreateFrame = CreateFrame

--[[
        Selection Group controls all have an interface to select a group for thier contents
        None of them will auto size to thier contents, and should usually be used with a scrollframe
        unless you know that the controls will fit inside
]]

--------------------------
-- Dropdown Group               --
--------------------------
--[[
        Events :
                OnGroupSelected

]]
do
        local Type = "UIF-DropdownGroup"
        local Version = 13
        
        local function OnAcquire(self)
                self.dropdown:SetText("")
                self:SetDropdownWidth(200)
                self:SetTitle("")
        end
        
        local function OnRelease(self)
                self.frame:ClearAllPoints()
                self.frame:Hide()
                self.dropdown.list = nil
                self.status = nil
                for k in pairs(self.localstatus) do
                        self.localstatus[k] = nil
                end
                
                self.titletext:SetFontObject("GameFontNormal")
                self.border:SetBackdropBorderColor(0.4,0.4,0.4)
        end

        local PaneBackdrop  = {
                bgFile = "Interface\\ChatFrame\\ChatFrameBackground",
                edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border",
                tile = true, tileSize = 16, edgeSize = 16,
                insets = { left = 3, right = 3, top = 5, bottom = 3 }
        }
        
        local function SetBorderColor(self, color)
                self.border:SetBackdropBorderColor(unpack(color))
        end
        
        local function SetFont(self, font, size, flags)
                if not self.fontO then
                        self.fontO = CreateFont("UIFDropdownFont")
                        self.fontO:SetFont(font, size, flags)
                end
                self.titletext:SetFontObject(self.fontO)
        end
        
        local function SetFontColor(self, color)
                local font, size, flags = GameFontNormal:GetFont()
                if not self.fontO then
                        self.fontO = CreateFont("UIFDropdownFont")
                        self.fontO:SetFont(font, size, flags)
                        self.fontO:SetTextColor(unpack(color))
                end
                self.titletext:SetFontObject(self.fontO)
        end
        
        local function SetTitle(self,title)
                self.titletext:SetText(title)
                self.dropdown.frame:ClearAllPoints()
                if title and title ~= "" then
                        self.dropdown.frame:SetPoint("TOPRIGHT", self.frame, "TOPRIGHT", -2, 0)
                else
                        self.dropdown.frame:SetPoint("TOPLEFT", self.frame, "TOPLEFT", -1, 0)
                end
        end
        

        local function SelectedGroup(self,event,value)
                local group = self.parentgroup
                local status = group.status or group.localstatus
                status.selected = value
                self.parentgroup:Fire("OnGroupSelected", value)
        end
        
        local function SetGroupList(self,list)
                self.dropdown:SetList(list)
        end
        
        -- called to set an external table to store status in
        local function SetStatusTable(self, status)
                assert(type(status) == "table")
                self.status = status
        end
        
        local function SetGroup(self,group)
                self.dropdown:SetValue(group)
                local status = self.status or self.localstatus
                status.selected = group
                self:Fire("OnGroupSelected", group)
        end
        
        local function OnWidthSet(self, width)
                local content = self.content
                local contentwidth = width - 26
                if contentwidth < 0 then
                        contentwidth = 0
                end
                content:SetWidth(contentwidth)
                content.width = contentwidth
        end
        
        
        local function OnHeightSet(self, height)
                local content = self.content
                local contentheight = height - 63
                if contentheight < 0 then
                        contentheight = 0
                end
                content:SetHeight(contentheight)
                content.height = contentheight
        end
        
        local function LayoutFinished(self, width, height)
                self:SetHeight((height or 0) + 63)
        end
        
        local function SetDropdownWidth(self, width)
                self.dropdown:SetWidth(width)
        end
        
        local function SetDropdownWidget(self, dropdown)
                self.dropdown:Release()
                self.dropdown = dropdown
                dropdown.frame:SetParent(self.frame)
                dropdown.frame:SetFrameLevel(dropdown.frame:GetFrameLevel() + 2)
                dropdown.parentgroup = self
                dropdown:SetCallback("OnValueChanged",SelectedGroup)
                dropdown.frame:SetPoint("TOPLEFT",self.frame,"TOPLEFT", -1, 0)
                dropdown.frame:Show()
                dropdown:SetLabel("")
        end
        
        local function Constructor()
                local frame = CreateFrame("Frame")
                local self = {}
                self.type = Type

                self.OnRelease = OnRelease
                self.OnAcquire = OnAcquire
                
                self.SetTitle = SetTitle
                self.SetGroupList = SetGroupList
                self.SetGroup = SetGroup
                self.SetStatusTable = SetStatusTable
                self.SetDropdownWidth = SetDropdownWidth
                self.OnWidthSet = OnWidthSet
                self.OnHeightSet = OnHeightSet
                self.LayoutFinished = LayoutFinished
                
                self.SetFont = SetFont
                self.SetFontColor = SetFontColor
                self.SetBorderColor = SetBorderColor
                
                self.SetDropdownWidget = SetDropdownWidget
                
                self.localstatus = {}

                self.frame = frame
                frame.obj = self
                
                frame:SetHeight(100)
                frame:SetWidth(100)
                frame:SetFrameStrata("FULLSCREEN_DIALOG")
                
                local titletext = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal")
                titletext:SetPoint("TOPLEFT", frame, "TOPLEFT", 4, -5)
                titletext:SetPoint("TOPRIGHT", frame, "TOPRIGHT", -4, -5)
                titletext:SetJustifyH("LEFT")
                titletext:SetHeight(18)
                self.titletext = titletext
                
                local dropdown = AceGUI:Create("Dropdown")
                self.dropdown = dropdown
                dropdown.frame:SetParent(frame)
                dropdown.frame:SetFrameLevel(dropdown.frame:GetFrameLevel() + 2)
                dropdown.parentgroup = self
                dropdown:SetCallback("OnValueChanged",SelectedGroup)
                dropdown.frame:SetPoint("TOPLEFT",frame,"TOPLEFT", -1, 0)
                dropdown.frame:Show()
                dropdown:SetLabel("")
                
                local border = CreateFrame("Frame",nil,frame)
                self.border = border
                border:SetPoint("TOPLEFT",frame,"TOPLEFT",0,-26)
                border:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,3)
                
                border:SetBackdrop(PaneBackdrop)
                border:SetBackdropColor(0.1,0.1,0.1,0.5)
                border:SetBackdropBorderColor(0.4,0.4,0.4)
                
                --Container Support
                local content = CreateFrame("Frame",nil,border)
                self.content = content
                content.obj = self
                content:SetPoint("TOPLEFT",border,"TOPLEFT",10,-10)
                content:SetPoint("BOTTOMRIGHT",border,"BOTTOMRIGHT",-10,10)
                
                AceGUI:RegisterAsContainer(self)
                return self
        end
        
        AceGUI:RegisterWidgetType(Type,Constructor,Version)
end