WoWInterface SVN BearinMind

[/] [trunk/] [Bear in Mind/] [libs/] [AceGUI-3.0/] [widgets/] [AceGUIContainer-Window.lua] - Rev 9

Compare with Previous | Blame | View Log

local AceGUI = LibStub("AceGUI-3.0")

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

-- WoW APIs
local PlaySound = PlaySound
local CreateFrame, UIParent = CreateFrame, UIParent

-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded
-- List them here for Mikk's FindGlobals script
-- GLOBALS: GameFontNormal

----------------
-- Main Frame --
----------------
--[[
        Events :
                OnClose

]]
do
        local Type = "Window"
        local Version = 6

        local function frameOnShow(this)
                this.obj:Fire("OnShow")
        end

        local function frameOnClose(this)
                this.obj:Fire("OnClose")
        end
        
        local function closeOnClick(this)
                PlaySound(799) -- SOUNDKIT.GS_TITLE_OPTION_EXIT
                this.obj:Hide()
        end
        
        local function frameOnMouseDown(this)
                AceGUI:ClearFocus()
        end
        
        local function titleOnMouseDown(this)
                this:GetParent():StartMoving()
                AceGUI:ClearFocus()
        end
        
        local function frameOnMouseUp(this)
                local frame = this:GetParent()
                frame:StopMovingOrSizing()
                local self = frame.obj
                local status = self.status or self.localstatus
                status.width = frame:GetWidth()
                status.height = frame:GetHeight()
                status.top = frame:GetTop()
                status.left = frame:GetLeft()
        end
        
        local function sizerseOnMouseDown(this)
                this:GetParent():StartSizing("BOTTOMRIGHT")
                AceGUI:ClearFocus()
        end
        
        local function sizersOnMouseDown(this)
                this:GetParent():StartSizing("BOTTOM")
                AceGUI:ClearFocus()
        end
        
        local function sizereOnMouseDown(this)
                this:GetParent():StartSizing("RIGHT")
                AceGUI:ClearFocus()
        end
        
        local function sizerOnMouseUp(this)
                this:GetParent():StopMovingOrSizing()
        end

        local function SetTitle(self,title)
                self.titletext:SetText(title)
        end
        
        local function SetStatusText(self,text)
                -- self.statustext:SetText(text)
        end
        
        local function Hide(self)
                self.frame:Hide()
        end
        
        local function Show(self)
                self.frame:Show()
        end
        
        local function OnAcquire(self)
                self.frame:SetParent(UIParent)
                self.frame:SetFrameStrata("FULLSCREEN_DIALOG")
                self:ApplyStatus()
                self:EnableResize(true)
                self:Show()
        end
        
        local function OnRelease(self)
                self.status = nil
                for k in pairs(self.localstatus) do
                        self.localstatus[k] = nil
                end
        end
        
        -- called to set an external table to store status in
        local function SetStatusTable(self, status)
                assert(type(status) == "table")
                self.status = status
                self:ApplyStatus()
        end
        
        local function ApplyStatus(self)
                local status = self.status or self.localstatus
                local frame = self.frame
                self:SetWidth(status.width or 700)
                self:SetHeight(status.height or 500)
                if status.top and status.left then
                        frame:SetPoint("TOP",UIParent,"BOTTOM",0,status.top)
                        frame:SetPoint("LEFT",UIParent,"LEFT",status.left,0)
                else
                        frame:SetPoint("CENTER",UIParent,"CENTER")
                end
        end
        
        local function OnWidthSet(self, width)
                local content = self.content
                local contentwidth = width - 34
                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 - 57
                if contentheight < 0 then
                        contentheight = 0
                end
                content:SetHeight(contentheight)
                content.height = contentheight
        end
        
        local function EnableResize(self, state)
                local func = state and "Show" or "Hide"
                self.sizer_se[func](self.sizer_se)
                self.sizer_s[func](self.sizer_s)
                self.sizer_e[func](self.sizer_e)
        end
        
        local function Constructor()
                local frame = CreateFrame("Frame",nil,UIParent)
                local self = {}
                self.type = "Window"
                
                self.Hide = Hide
                self.Show = Show
                self.SetTitle =  SetTitle
                self.OnRelease = OnRelease
                self.OnAcquire = OnAcquire
                self.SetStatusText = SetStatusText
                self.SetStatusTable = SetStatusTable
                self.ApplyStatus = ApplyStatus
                self.OnWidthSet = OnWidthSet
                self.OnHeightSet = OnHeightSet
                self.EnableResize = EnableResize
                
                self.localstatus = {}
                
                self.frame = frame
                frame.obj = self
                frame:SetWidth(700)
                frame:SetHeight(500)
                frame:SetPoint("CENTER",UIParent,"CENTER",0,0)
                frame:EnableMouse()
                frame:SetMovable(true)
                frame:SetResizable(true)
                frame:SetFrameStrata("FULLSCREEN_DIALOG")
                frame:SetScript("OnMouseDown", frameOnMouseDown)
                
                frame:SetScript("OnShow",frameOnShow)
                frame:SetScript("OnHide",frameOnClose)
                frame:SetMinResize(240,240)
                frame:SetToplevel(true)

                local titlebg = frame:CreateTexture(nil, "BACKGROUND")
                titlebg:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Title-Background]])
                titlebg:SetPoint("TOPLEFT", 9, -6)
                titlebg:SetPoint("BOTTOMRIGHT", frame, "TOPRIGHT", -28, -24)
                
                local dialogbg = frame:CreateTexture(nil, "BACKGROUND")
                dialogbg:SetTexture([[Interface\Tooltips\UI-Tooltip-Background]])
                dialogbg:SetPoint("TOPLEFT", 8, -24)
                dialogbg:SetPoint("BOTTOMRIGHT", -6, 8)
                dialogbg:SetVertexColor(0, 0, 0, .75)
                
                local topleft = frame:CreateTexture(nil, "BORDER")
                topleft:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Border]])
                topleft:SetWidth(64)
                topleft:SetHeight(64)
                topleft:SetPoint("TOPLEFT")
                topleft:SetTexCoord(0.501953125, 0.625, 0, 1)
                
                local topright = frame:CreateTexture(nil, "BORDER")
                topright:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Border]])
                topright:SetWidth(64)
                topright:SetHeight(64)
                topright:SetPoint("TOPRIGHT")
                topright:SetTexCoord(0.625, 0.75, 0, 1)
                
                local top = frame:CreateTexture(nil, "BORDER")
                top:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Border]])
                top:SetHeight(64)
                top:SetPoint("TOPLEFT", topleft, "TOPRIGHT")
                top:SetPoint("TOPRIGHT", topright, "TOPLEFT")
                top:SetTexCoord(0.25, 0.369140625, 0, 1)
                
                local bottomleft = frame:CreateTexture(nil, "BORDER")
                bottomleft:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Border]])
                bottomleft:SetWidth(64)
                bottomleft:SetHeight(64)
                bottomleft:SetPoint("BOTTOMLEFT")
                bottomleft:SetTexCoord(0.751953125, 0.875, 0, 1)
                
                local bottomright = frame:CreateTexture(nil, "BORDER")
                bottomright:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Border]])
                bottomright:SetWidth(64)
                bottomright:SetHeight(64)
                bottomright:SetPoint("BOTTOMRIGHT")
                bottomright:SetTexCoord(0.875, 1, 0, 1)
                
                local bottom = frame:CreateTexture(nil, "BORDER")
                bottom:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Border]])
                bottom:SetHeight(64)
                bottom:SetPoint("BOTTOMLEFT", bottomleft, "BOTTOMRIGHT")
                bottom:SetPoint("BOTTOMRIGHT", bottomright, "BOTTOMLEFT")
                bottom:SetTexCoord(0.376953125, 0.498046875, 0, 1)
                
                local left = frame:CreateTexture(nil, "BORDER")
                left:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Border]])
                left:SetWidth(64)
                left:SetPoint("TOPLEFT", topleft, "BOTTOMLEFT")
                left:SetPoint("BOTTOMLEFT", bottomleft, "TOPLEFT")
                left:SetTexCoord(0.001953125, 0.125, 0, 1)
                
                local right = frame:CreateTexture(nil, "BORDER")
                right:SetTexture([[Interface\PaperDollInfoFrame\UI-GearManager-Border]])
                right:SetWidth(64)
                right:SetPoint("TOPRIGHT", topright, "BOTTOMRIGHT")
                right:SetPoint("BOTTOMRIGHT", bottomright, "TOPRIGHT")
                right:SetTexCoord(0.1171875, 0.2421875, 0, 1)
                
                local close = CreateFrame("Button", nil, frame, "UIPanelCloseButton")
                close:SetPoint("TOPRIGHT", 2, 1)
                close:SetScript("OnClick", closeOnClick)
                self.closebutton = close
                close.obj = self
                
                local titletext = frame:CreateFontString(nil, "ARTWORK")
                titletext:SetFontObject(GameFontNormal)
                titletext:SetPoint("TOPLEFT", 12, -8)
                titletext:SetPoint("TOPRIGHT", -32, -8)
                self.titletext = titletext
                
                local title = CreateFrame("Button", nil, frame)
                title:SetPoint("TOPLEFT", titlebg)
                title:SetPoint("BOTTOMRIGHT", titlebg)
                title:EnableMouse()
                title:SetScript("OnMouseDown",titleOnMouseDown)
                title:SetScript("OnMouseUp", frameOnMouseUp)
                self.title = title
                
                local sizer_se = CreateFrame("Frame",nil,frame)
                sizer_se:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,0)
                sizer_se:SetWidth(25)
                sizer_se:SetHeight(25)
                sizer_se:EnableMouse()
                sizer_se:SetScript("OnMouseDown",sizerseOnMouseDown)
                sizer_se:SetScript("OnMouseUp", sizerOnMouseUp)
                self.sizer_se = sizer_se

                local line1 = sizer_se:CreateTexture(nil, "BACKGROUND")
                self.line1 = line1
                line1:SetWidth(14)
                line1:SetHeight(14)
                line1:SetPoint("BOTTOMRIGHT", -8, 8)
                line1:SetTexture("Interface\\Tooltips\\UI-Tooltip-Border")
                local x = 0.1 * 14/17
                line1:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5)

                local line2 = sizer_se:CreateTexture(nil, "BACKGROUND")
                self.line2 = line2
                line2:SetWidth(8)
                line2:SetHeight(8)
                line2:SetPoint("BOTTOMRIGHT", -8, 8)
                line2:SetTexture("Interface\\Tooltips\\UI-Tooltip-Border")
                local x = 0.1 * 8/17
                line2:SetTexCoord(0.05 - x, 0.5, 0.05, 0.5 + x, 0.05, 0.5 - x, 0.5 + x, 0.5)

                local sizer_s = CreateFrame("Frame",nil,frame)
                sizer_s:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-25,0)
                sizer_s:SetPoint("BOTTOMLEFT",frame,"BOTTOMLEFT",0,0)
                sizer_s:SetHeight(25)
                sizer_s:EnableMouse()
                sizer_s:SetScript("OnMouseDown",sizersOnMouseDown)
                sizer_s:SetScript("OnMouseUp", sizerOnMouseUp)
                self.sizer_s = sizer_s
                
                local sizer_e = CreateFrame("Frame",nil,frame)
                sizer_e:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",0,25)
                sizer_e:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,0)
                sizer_e:SetWidth(25)
                sizer_e:EnableMouse()
                sizer_e:SetScript("OnMouseDown",sizereOnMouseDown)
                sizer_e:SetScript("OnMouseUp", sizerOnMouseUp)
                self.sizer_e = sizer_e
        
                --Container Support
                local content = CreateFrame("Frame",nil,frame)
                self.content = content
                content.obj = self
                content:SetPoint("TOPLEFT",frame,"TOPLEFT",12,-32)
                content:SetPoint("BOTTOMRIGHT",frame,"BOTTOMRIGHT",-12,13)
                
                AceGUI:RegisterAsContainer(self)
                return self     
        end
        
        AceGUI:RegisterWidgetType(Type,Constructor,Version)
end

Compare with Previous | Blame