wow/reaction: Bar.lua comparison

comparison Bar.lua @ 72:aa88aed52124

Fixed bugs with state keybinds. Simplified state driver API

author	Flick <flickerstreak@gmail.com>
date	Thu, 05 Jun 2008 18:34:36 +0000
parents	3d2cef5dc459
children	dd01feae0d89

comparison

equal deleted inserted replaced

-:3d2cef5dc459
+:aa88aed52124
 f:UnregisterAllEvents()
 f:Hide()
 f:SetParent(UIParent)
 f:ClearAllPoints()
 ReAction.UnregisterAllCallbacks(self)
+if self.statedriver then
+UnregisterStateDriver(f, "reaction")
+end
 self.labelString = nil
 self.controlFrame = nil
 self.frame = nil
 self.config = nil
 end
 -- multi-state functions --
 function Bar:GetNumPages()
 return self.config.nPages or 1
 end
+--
+-- 'rule' is a rule-string to pass to RegisterStateDriver
+-- 'states' is a { ["statename"] = <don't care> } table of all state names
+-- 'keybinds' is a { ["statename"] = keybind } table of all keybound states
+--
+function Bar:SetStateDriver( rule, states, keybinds )
+local f = self.frame
+local kbprefix = ""
+do
+local tmp = { }
+for s, k in pairs(keybinds) do
+if k and #k > 0 then -- filter out false table entries
+-- if in a keybound state, set the stack to the new state but stay in the keybound state.
+-- use $s as a placeholder for the current state, it will be gsub()'d in later
+table.insert(tmp,("%s:$s set() %s"):format(s,s))
+end
+end
+table.insert(tmp,kbprefix)  -- to get a trailing ';' if the table is not empty
+kbprefix = table.concat(tmp,";")
+end
+for state in pairs(states) do
+-- For all states: if in a keybound state, stay there (with stack manipulation, see above).
+-- Otherwise, go to the state
+f:SetAttribute(("statemap-reaction-%s"):format(state),("%s%s"):format(kbprefix:gsub("%$s",state),state))
+local binding = keybinds[state]
+self:SetStateKeybind(binding, state) -- set the binding even if nil, to clear it unconditionally
+if binding then
+-- for key bindings, use the state-stack to toggle between the last state and the keybound state
+-- use a different 'virtual state' passed to attribute 'reaction-state' for key bindings, "<state>_binding"
+f:SetAttribute(("statemap-reaction-%s_binding"):format(state), ("%s:pop();*:set(%s)"):format(state,state))
+end
+end
+if rule and #rule > 0 then
+self.stateDriver = true
+RegisterStateDriver(f, "reaction", rule)
+elseif self.statedriver then
+self.statedriver = false
+UnregisterStateDriver(f, "reaction")
+end
+end
 function Bar:SetHideStates(s)
 for f in pairs(self.buttons) do
 if f:GetParent() == self.frame then
 f:SetAttribute("hidestates",s)
 end
 end
 SecureStateHeader_Refresh(self.frame)
 end
 function Bar:SetStateKeybind(key, state, defaultstate)
--- set a keybind to toggle transitioning unconditionally to a state
+-- Lazily create a tiny offscreen button which sends "<state>_binding" values to the
--- use a tiny offscreen button to get around making the bar itself a clickable button
+-- bar frame's state-reaction attribute, by using an override binding to generate a
+-- click on the button with a virtual mouse button "state".
+-- This gets around making the bar itself a clickable button, which is not desirable
 local f = self.statebuttonframe
-local off = ("%s_off"):format(state)
 if key then
 if not f then
-f = CreateFrame("Button",self:GetName().."_statebutton",UIParent,"SecureActionButtonTemplate")
+f = CreateFrame("Button",self:GetName().."_statebutton",self.frame,"SecureActionButtonTemplate")
 f:SetPoint("BOTTOMRIGHT",UIParent,"TOPLEFT")
 f:SetWidth(1)
 f:SetHeight(1)
-f:SetAttribute("attribute-name", "state")
+f:SetAttribute("type*","attribute")
-f:SetAttribute("attribute-frame",self.frame)
+f:SetAttribute("attribute-name*","state-reaction")
-f:SetAttribute("stateheader",self.frame)
+f:SetAttribute("attribute-frame*",self.frame)
 f:Show()
+f.bindings = { }
 self.statebuttonframe = f
 end
--- map two virtual buttons to toggle between the state and the default
+f:SetAttribute(("attribute-value-%s"):format(state),("%s_binding"):format(state))
-f:SetAttribute(("statebutton-%s"):format(state),("%s:%s;%s"):format(state,off,state))
+-- clear the old binding, if any, for this state
-f:SetAttribute(("type-%s"):format(state),"attribute")
+if f.bindings[state] then
-f:SetAttribute(("type-%s"):format(off),"attribute")
+SetOverrideBinding(self.frame, false, f.bindings[state], nil)
-f:SetAttribute(("attribute-value-%s"):format(state), state)
+end
-f:SetAttribute(("attribute-value-%s"):format(off), defaultstate)
+SetOverrideBindingClick(self.frame, false, key, f:GetName(), state) -- the state name is used as the virtual button
-SetBindingClick(key, f:GetName(), state)
+f.bindings[state] = key
 elseif f then
-f:SetAttribute(("type-%s"):format(state),ATTRIBUTE_NOOP)
+key = f.bindings[state]
-f:SetAttribute(("type-%s"):format(off),ATTRIBUTE_NOOP)
-local action = ("CLICK %s:%s"):format(f:GetName(),state)
-key = GetBindingKey(action)
 if key then
-SetBinding(key,nil)
+SetOverrideBinding(self.frame, false, key, nil)
+f.bindings[state] = nil
 end
 end
 end
 function Bar:SetStatePageMap(state, map)  -- map is a { ["statename"] = pagenumber } table
 local tmp = { }
 for s, p in pairs(map) do
 table.insert(tmp, ("%s:page%d"):format(s,p))
 end
 local spec = table.concat(tmp,";")
-f:SetAttribute("statebutton",spec)
+local current = f:GetAttribute("statebutton")
+if spec ~= f:GetAttribute("statebutton") then
+f:SetAttribute("statebutton", spec)
+end
 SecureStateHeader_Refresh(f)
 end
 function Bar:SetStateKeybindOverrideMap(states) -- 'states' is an array of state-names that should have keybind overrides enabled
 local f = self.frame

Mercurial > wow > reaction

comparison Bar.lua @ 72:aa88aed52124