WoWInterface SVN Visor2GUI

--[[ $Id: Core.lua 3 2008-08-19 19:45:21Z DarkImakuni-16655 $ ]]

Visor2GUI = Visor2:NewModule("GUI", "AceConsole-2.0", "AceDB-2.0")
Visor2GUI.date = ("$Date: 2008-08-19 19:45:21 +0000 (Tue, 19 Aug 2008) $"):match("%d%d%d%d%-%d%d%-%d%d")

Visor2GUI:RegisterDB("Visor2GUIDB")
Visor2GUI:RegisterDefaults('account', { nudgeAmount = 20 })


local L = AceLibrary("AceLocale-2.2"):new("Visor2GUI")
local function round(num, digits)
        -- banker's rounding
        local mantissa = 10^digits
        local norm = num*mantissa
        norm = norm + 0.5
        local norm_f = math.floor(norm)
        if norm == norm_f and (norm_f % 2) ~= 0 then
                return (norm_f-1)/mantissa
        end
        return norm_f/mantissa
end


function Visor2GUI:OnEnable()
        self:RegisterEvent("VISOR_UPDATE")
        self:RegisterChatCommand({ "/vzg", "/Visor2GUI" }, {
                type = 'group', args = {
                        toggle = {
                                type = 'execute', name = L["Toggle GUI Frame"], desc = L["Toggle GUI Frame"],
                                func = function()
                                        if Visor2GUIFrame:IsShown() then Visor2GUIFrame:Hide()
                                        else Visor2GUIFrame:Show() end
                                end,
                        },
                },
        })

        Visor2:Do("n="..self.db.account.nudgeAmount)
        Visor2GUINudge:SetValue(self.db.account.nudgeAmount)
end


function Visor2GUI:VISOR_UPDATE(p)
        if not Visor2GUIFrame:IsShown() then return end

        if p.f then
                if self.virtual then
                        if p.f == "Visor2GUIVirtualFrame" or p.f == self.virtual then
                                self.f = self.virtual
                        end
                else
                        self.f = p.f
                end

                self.parent = _G[self.f]:GetParent():GetName() or nil

                if self.parent then Visor2GUIGrabParent:Enable()
                else Visor2GUIGrabParent:Disable() end

                Visor2GUITarget:SetText(L["Parent Frame: "].."|cffffffff"..(self.parent or L["None"]))
                Visor2GUIEditBox:SetText(self.f)

                local s = p.s or _G[self.f]:GetScale()
                Visor2GUIScale:SetValue(s or 1)

                local a = p.a or _G[self.f]:GetAlpha()
                Visor2GUIAlpha:SetValue(a or 1)

                local wh = p.wh or _G[self.f]:GetWidth()
                wh = round(wh, 0)
                Visor2GUIEditW:SetText(wh)

                local ht = p.ht or _G[self.f]:GetHeight()
                ht = round(ht, 0)
                Visor2GUIEditH:SetText(ht)

                local x, y = _G[self.f]:GetCenter()
                x = p.x or round(x, 0)
                y = p.y or round(y, 0)

                Visor2GUIEditX:SetText(x)
                Visor2GUIEditY:SetText(y)

                if _G[p.f]:IsShown() then
                        Visor2GUIHide:SetText(L["Hide Frame"])
                else
                        Visor2GUIHide:SetText(L["Show Frame"])
                end

                Visor2GUIHide:Enable()
                Visor2GUIVirt:Enable()
                Visor2GUIDelete:Enable()
        else
                Visor2GUIHide:Disable()
                Visor2GUIVirt:Disable()
                Visor2GUIDelete:Disable()
        end
end


function Visor2GUI:ShowTooltip(txt)
        GameTooltip_SetDefaultAnchor(GameTooltip, UIParent)
        GameTooltip:SetText(txt)
        GameTooltip:Show()
end

function Visor2GUI:Toggle()
        if Visor2GUIFrame:IsShown() then
                Visor2GUIFrame:Hide()
        else
                Visor2GUIFrame:Show()
        end
end


function Visor2GUI:EditBoxUpdate()
        if self.virtual then
                Visor2GUIEditBox:SetText(self.virtual)
        else
                Visor2:SetupFrame("f="..this:GetText())
        end
end

function Visor2GUI:EditWUpdate()
        local n = Visor2GUIEditW:GetText()

        if self.virtual then
                Visor2:Do("f="..self.virtual.." wh="..n)
                Visor2:Do("f=Visor2GUIVirtualFrame wh="..n)
        else
                Visor2:Do("wh="..n)
        end
end

function Visor2GUI:ButtonWUp()
        local n = Visor2GUIEditW:GetText() + 1

        if self.virtual then
                Visor2:Do("f="..self.virtual.." wh="..n)
                Visor2:Do("f=Visor2GUIVirtualFrame wh="..n)
        else
                Visor2:Do("wh="..n)
        end
end

function Visor2GUI:ButtonWDown()
        local n = Visor2GUIEditW:GetText() - 1

        if self.virtual then
                Visor2:Do("f="..self.virtual.." wh="..n)
                Visor2:Do("f=Visor2GUIVirtualFrame wh="..n)
        else
                Visor2:Do("wh="..n)
        end
end


function Visor2GUI:EditHUpdate()
        local n = Visor2GUIEditH:GetText()

        if self.virtual then
                Visor2:Do("f="..self.virtual.." ht="..n)
                Visor2:Do("f=Visor2GUIVirtualFrame ht="..n)
        else
                Visor2:Do("ht="..n)
        end
end

function Visor2GUI:ButtonHUp()
        local n = Visor2GUIEditH:GetText() + 1

        if self.virtual then
                Visor2:Do("f="..self.virtual.." ht="..n)
                Visor2:Do("f=Visor2GUIVirtualFrame ht="..n)
        else
                Visor2:Do("ht="..n)
        end
end

function Visor2GUI:ButtonHDown()
        local n = Visor2GUIEditH:GetText() - 1

        if self.virtual then
                Visor2:Do("f="..self.virtual.." ht="..n)
                Visor2:Do("f=Visor2GUIVirtualFrame ht="..n)
        else
                Visor2:Do("ht="..n)
        end
end


function Visor2GUI:ScaleUpdate()
        local s = round(this:GetValue(), 2)

        Visor2GUIScaleText:SetText(L["Frame Scale: "]..s)

        if self.virtual then
                Visor2:Do("f="..self.virtual.." s="..s)
                Visor2:Do("f=Visor2GUIVirtualFrame s="..s)
        else
                Visor2:Do("s="..s)
        end
end

function Visor2GUI:AlphaUpdate()
        local a = round(this:GetValue(), 2)

        Visor2GUIAlphaText:SetText(L["Frame Alpha: "]..a)

        if self.virtual then
                Visor2:Do("f="..self.virtual.." a="..a)
                Visor2:Do("f=Visor2GUIVirtualFrame a="..a)
        else
                Visor2:Do("a="..a)
        end
end

function Visor2GUI:HideUpdate()
        if Visor2GUIHide:GetText() == L["Hide Frame"] then
                Visor2:Do("h=TRUE")
                Visor2GUIHide:SetText(L["Show Frame"])
        else
                Visor2:Do("h=FALSE")
                Visor2GUIHide:SetText(L["Hide Frame"])
        end
end


function Visor2GUI:EditXUpdate()
        local x = Visor2GUIEditX:GetText()

        if self.virtual then
                Visor2:Do("f="..self.virtual.." x="..x)
                Visor2:Do("f=Visor2GUIVirtualFrame x="..x)
        else
                Visor2:Do("x="..x)
        end

        Visor2GUIEditX:SetText(x)
end

function Visor2GUI:EditYUpdate()
        local y = Visor2GUIEditY:GetText()

        if self.virtual then
                Visor2:Do("f="..self.virtual.." y="..y)
                Visor2:Do("f=Visor2GUIVirtualFrame y="..y)
        else
                Visor2:Do("y="..y)
        end

        Visor2GUIEditY:SetText(y)
end


function Visor2GUI:NudgeUpdate()
        local n = this:GetValue()

        Visor2GUINudgeText:SetText(L["Nudge Amount: "]..n)

        self.db.account.nudgeAmount = n
        Visor2:Do("n="..n)
end

function Visor2GUI:NudgeLeft()
        if self.virtual then
                Visor2:Do("f="..self.virtual)
                Visor2Nudge:Left()

                Visor2:Do("f=Visor2GUIVirtualFrame")
                Visor2Nudge:Left()
        else
                Visor2Nudge:Left()
        end
end

function Visor2GUI:NudgeRight()
        if self.virtual then
                Visor2:Do("f="..self.virtual)
                Visor2Nudge:Right()

                Visor2:Do("f=Visor2GUIVirtualFrame")
                Visor2Nudge:Right()
        else
                Visor2Nudge:Right()
        end
end

function Visor2GUI:NudgeUp()
        if self.virtual then
                Visor2:Do("f="..self.virtual)
                Visor2Nudge:Up()

                Visor2:Do("f=Visor2GUIVirtualFrame")
                Visor2Nudge:Up()
        else
                Visor2Nudge:Up()
        end
end

function Visor2GUI:NudgeDown()
        if self.virtual then
                Visor2:Do("f="..self.virtual)
                Visor2Nudge:Down()

                Visor2:Do("f=Visor2GUIVirtualFrame")
                Visor2Nudge:Down()
        else
                Visor2Nudge:Down()
        end
end


function Visor2GUI:ButtonVirt()
        local f = self.f
        local vf = Visor2GUIVirtualFrame

        if vf:IsShown() then
                vf:Hide()
                self.virtual = nil
                return
        end

        if _G[f] then
                self.virtual = _G[f]:GetName()

                Visor2GUIVirtualFrameTitleString:SetText(f)
                Visor2:Do("f=Visor2GUIVirtualFrame")

                local h = _G[f]:GetHeight() or 200
                local w = _G[f]:GetWidth() or 200
                local s = _G[f]:GetScale() or 1
                local x, y = _G[f]:GetCenter()
                local p = _G[f]:GetParent()

                if p then
                        p = _G[f]:GetParent():GetName()
                else
                        p = "UIParent"
                end

                if not x then x = 500 end
                if not y then y = 300 end

                vf:SetParent(p)

                if not vf.VisorSetScale then
                        vf:SetScale(s)
                else
                        vf:VisorSetScale(s)
                end

                if not vf.VisorSetPoint then
                        vf:SetPoint("CENTER", p, "BOTTOMLEFT", x, y)
                else
                        vf:VisorSetPoint("CENTER", p, "BOTTOMLEFT", x, y)
                end

                Visor2:Do("f=Visor2GUIVirtualFrame s="..s.." p1=CENTER p2=BOTTOMLEFT")
                Visor2:Do("f=Visor2GUIVirtualFrame x="..x.." y="..y.." p="..p.." pr="..p)

                if h and w then
                        Visor2:Do("f=Visor2GUIVirtualFrame".." ht="..h.." wh="..w)
                end

                vf:Show()
        end
end