WoWInterface SVN fernir_UI

local Binder=CreateFrame("Frame")

Binder:SetScript("OnEvent",function(self,event,...) self[event](self,event,...) end)

--Binder:RegisterEvent("PLAYER_LOGIN")

Binder:RegisterEvent("PLAYER_ENTERING_WORLD")

Binder:RegisterEvent("VARIABLES_LOADED")

-- OnLoad

function Binder.VARIABLES_LOADED()

        if Binder_BindPerChar == nil then

                Binder_BindPerChar = true

        end

        Binder.IsOn = false

end

function Binder.PLAYER_ENTERING_WORLD(addon)

        Binder:UnregisterEvent("PLAYER_ENTERING_WORLD")

        print("|c66FF66FF/sb|cFFFFFFFF for change your binds.")

        Binder.CreateGUI()

        KeyBindingFrame_LoadUI()

        SLASH_BINDER1 = "/sb";

        SlashCmdList["BINDER"] = Binder.SlashCommand;

end

-- OnEnter

function BinderFrame_OnEnter(self)

        local keyBind = GetBindingKey(strupper(self.button))

        local bind = _G[self:GetName().."Binding"]

        local midText = BinderBindingKey

        if keyBind then keyBind = gsub(gsub(keyBind, "BUTTON3", "Middle Mouse"), '-', ' ') end

        bind:SetText(keyBind)

        midText:SetText(keyBind)

        midText:Show()

        self:SetBackdropColor(1,0,0,.5)

        self:EnableKeyboard(true)

end

-- OnLeave

function BinderFrame_OnLeave(self)

        local bind = _G[self:GetName().."Binding"]

        BinderBindingKey:Hide()

        self:SetBackdropColor(1,1,1,.5)

        self:EnableKeyboard(false)

end

-- OnKeyDown

function BinderFrame_OnKeyDown(self, key, ...)

        local bind = _G[self:GetName().."Binding"] -- Sets up a local variable for our text file

        if key == "LSHIFT" or key == "RSHIFT" or key == "LCTRL" or key == "RCTRL" or key == "LALT" or key == "RALT" or key == "LeftButton" or key == "RightButton" then

                return -- stop running function if it's being run from a modifier key down

        end

        if key == "MiddleButton" then key = "BUTTON3" end

        if key == "Button4" then key = "BUTTON4" end

        if key == "Button5" then key = "BUTTON5" end

        if key == "ESCAPE" then

                SetBinding(GetBindingKey(strupper(self.button)))

        else

                if IsShiftKeyDown() then key = "SHIFT-"..key end

                if IsControlKeyDown() then key = "CTRL-"..key end

                if IsAltKeyDown() then key = "ALT-"..key end

                if GetBindingKey(strupper(self.button)) then

                        SetBinding(GetBindingKey(strupper(self.button)))

                end

                SetBinding(key, strupper(self.button))

        end

        BinderFrame_OnEnter(self)

        for i = 1, 60 do

                local f = _G["BinderFrame"..i]

                local keyBind = GetBindingKey(strupper(f.button))

                local bind = _G[f:GetName().."Binding"]

                if keyBind then keyBind = gsub(gsub(keyBind, "BUTTON3", "Middle Mouse"), '-', ' ') end

                bind:SetText(keyBind)

        end

end

function Binder.CreateGUI()

        Binder.CharSpecFrame=CreateFrame("frame")

        Binder.CharSpecFrame:EnableMouse(true)

        Binder.CharSpecFrame:SetMovable(true)

        Binder.CharSpecFrame:SetScript("OnMouseDown", function(self) self:StartMoving() end)

        Binder.CharSpecFrame:SetScript("OnMouseUp", function(self) self:StopMovingOrSizing() end)

        Binder.CharSpecFrame:SetScript("OnDragStop", function(self) self:StopMovingOrSizing() end)

        Binder.CharSpecFrame:SetBackdropColor(0, 0, 0, .4)

        Binder.CharSpecFrame:SetWidth(125) Binder.CharSpecFrame:SetHeight(55)

        Binder.CharSpecFrame:SetPoint("CENTER",UIParent)

        local tt = Binder.CharSpecFrame:CreateTexture(nil,"BACKGROUND") tt:SetTexture(0.19,0.19,0.19,1) tt:SetAllPoints(Binder.CharSpecFrame)

        Binder.CharSpecButton=CreateFrame("checkbutton",nil,Binder.CharSpecFrame,"OptionsCheckButtonTemplate")

        Binder.CharSpecButton:SetText("Char Specific")

        Binder.CharSpecButton:SetChecked(Binder_BindPerChar)

        Binder.CharSpecButton:SetPoint("TOPLEFT",7,-5)

        Binder.CharSpecButton:SetScript("OnClick", function()

                Binder_BindPerChar = this:GetChecked()

                if not Binder_BindPerChar then Binder_BindPerChar = false end

        end)

        Binder.CharSpecButton:SetScript("OnMouseDown", function() this:GetParent():StartMoving() end)

        Binder.CharSpecButton:SetScript("OnMouseUp", function() this:GetParent():StopMovingOrSizing() end)

        Binder.CharSpecButton:Show()

        local fstring1 = Binder.CharSpecFrame:CreateFontString("fs1","OVERLAY","GameFontNormal")

        fstring1:SetText("Char Specific")

        fstring1:SetPoint("LEFT", Binder.CharSpecButton, "RIGHT", 2, 0)

        Binder.SaveButton=CreateFrame("button",nil,Binder.CharSpecFrame,"OptionsButtonTemplate")

        Binder.SaveButton:SetWidth(55) Binder.SaveButton:SetHeight(21)

        Binder.SaveButton:SetText("Save")

        Binder.SaveButton:SetPoint("BOTTOMLEFT",7,7)

        Binder.SaveButton:SetScript("OnClick", function() Binder.SlashCommand("bind") end)

        Binder.SaveButton:Show()

        Binder.CancelButton=CreateFrame("button",nil,Binder.CharSpecFrame,"OptionsButtonTemplate")

        Binder.CancelButton:SetWidth(55) Binder.CancelButton:SetHeight(21)

        Binder.CancelButton:SetText("Cancel")

        Binder.CancelButton:SetPoint("LEFT",Binder.SaveButton,"RIGHT",2,0)

        Binder.CancelButton:SetScript("OnClick", function() Binder.SlashCommand("bind", true) end)

        Binder.CancelButton:Show()

        Binder.CharSpecFrame:Hide()

        local function setUp(frame, anchor, str_action)

                frame:SetBackdrop({bgFile = "Interface\\Tooltips\\UI-Tooltip-Background", tile = true, tileSize = 32,})

                frame:SetAllPoints(anchor)

                frame:SetBackdropColor(1,1,1,.5)

                frame:Hide()

                frame:SetAlpha(1)

                frame:EnableMouse(true)

                frame:SetFrameStrata("TOOLTIP")

                frame.button = str_action

                --print (str_action)

                frame:SetScript("OnEnter", BinderFrame_OnEnter)

                frame:SetScript("OnLeave", BinderFrame_OnLeave)

                frame:SetScript("OnKeyDown", BinderFrame_OnKeyDown)

                frame:SetScript("OnMouseDown", BinderFrame_OnKeyDown)

                local s = frame:CreateFontString("$parentBinding", "ARTWORK", "GameFontNormal")

                s:SetPoint("CENTER")

                s:SetHeight(anchor:GetHeight())

                s:SetWidth(anchor:GetWidth())

                local keyBind = GetBindingKey(strupper(frame.button))

                if keyBind then keyBind = gsub(gsub(keyBind, "BUTTON3", "Middle Mouse"), '-', ' ') end

                s:SetText(keyBind)

        end

        for i=1, GetNumShapeshiftForms() do

                local f = CreateFrame("Frame", "ShapeshiftBinderFrame"..i, UIParent)

                local anchor = _G["ShapeshiftButton"..i]

                setUp(f, anchor, anchor:GetName())

        end

        if select(2, UnitClass("player")) == "SHAMAN" then

                for i = 1, 4 do

                        local f = CreateFrame("Frame", "MultiCastBinderFrame"..i, UIParent)

                        local anchor = _G["MultiCastActionButton"..i]

                        setUp(f, anchor, anchor:GetName())

                end

        end

        for i = 1, 12 do

                local f = CreateFrame("Frame", "BinderFrame"..i, UIParent)

                local anchor = _G["ActionButton"..i]

                setUp(f, anchor, anchor:GetName())

                f = CreateFrame("Frame", "BinderFrame"..i+12, UIParent)

                anchor = _G["MultiBarBottomLeftButton"..i]

                setUp(f, anchor, "MULTIACTIONBAR1BUTTON"..i)

                f = CreateFrame("Frame", "BinderFrame"..i+24, UIParent)

                anchor = _G["MultiBarBottomRightButton"..i]

                setUp(f, anchor, "MULTIACTIONBAR2BUTTON"..i)

                f = CreateFrame("Frame", "BinderFrame"..i+36, UIParent)

                anchor = _G["MultiBarRightButton"..i]

                setUp(f, anchor, "MULTIACTIONBAR3BUTTON"..i)

                f = CreateFrame("Frame", "BinderFrame"..i+48, UIParent)

                anchor = _G["MultiBarLeftButton"..i]

                setUp(f, anchor, "MULTIACTIONBAR4BUTTON"..i)

                f = CreateFrame("Frame", "BinderFrame"..i+60, UIParent)

                anchor = _G["MultiBarLeftButton"..i]

                setUp(f, anchor, "MULTIACTIONBAR5BUTTON"..i)

        end

        local s = UIParent:CreateFontString("BinderBindingKey", "ARTWORK", "GameFontNormalLarge")

        s:SetPoint("CENTER")

        s:Hide()

end

function Binder.SlashCommand(cmd, cancel)

        local updString = "|c00aa00fBinder|cFFFFFFFF "

        local text

        Binder.IsOn = not Binder.IsOn

        for i=1, GetNumShapeshiftForms() do

                local f = _G["ShapeshiftBinderFrame"..i]

                if Binder.IsOn then

                        f:Show()

                else

                        f:Hide()

                end

        end

        if select(2, UnitClass("player")) == "SHAMAN" then

                for i=1, 4 do

                        local f = _G["MultiCastBinderFrame"..i]

                        if Binder.IsOn then

                                f:Show()

                        else

                                f:Hide()

                        end

                end

        end

        for i = 1, 60 do

                local f = _G["BinderFrame"..i]

                if Binder.IsOn then

                        f:Show()

                else

                        f:Hide()

                end

        end

        if Binder.IsOn then

                text = "enabled!"

                Binder.CharSpecFrame:Show()

        elseif not cancel then

                text = "saved!"

                Binder.CharSpecFrame:Hide()

                if Binder_BindPerChar then

                        SaveBindings(2)

                else

                        SaveBindings(1)

                end

        else

                text = "canceled!"

                Binder.CharSpecFrame:Hide()

        end

        print(updString.."bindings "..text)

end