WoWInterface SVN PocketPlot

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(PlaySoundKitID and "gsTitleOptionExit" or 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