wow/reaction: Bar.lua comparison

comparison Bar.lua @ 71:3d2cef5dc459

Implemented state anchoring and scaling

author	Flick <flickerstreak@gmail.com>
date	Wed, 04 Jun 2008 21:46:51 +0000
parents	2c12e2b1752e
children	aa88aed52124

comparison

equal deleted inserted replaced

-:2c12e2b1752e
+:3d2cef5dc459
 local InCombatLockdown = InCombatLockdown
 local floor = math.floor
 local min = math.min
 local format = string.format
 local GameTooltip = GameTooltip
+local SecureStateHeader_Refresh = SecureStateHeader_Refresh
 -- update ReAction revision if this file is newer
 local revision = tonumber(("$Revision$"):match("%d+"))
 f:SetPoint("TOPLEFT",x/scale,-y/scale)
 f:SetScale(scale)
 self.buttons[f] = true
 end
+-- multi-state functions --
 function Bar:GetNumPages()
 return self.config.nPages or 1
 end
 function Bar:SetHideStates(s)
 end
 SecureStateHeader_Refresh(self.frame)
 end
 function Bar:SetStateKeybind(key, state, defaultstate)
+-- set a keybind to toggle transitioning unconditionally to a state
 -- use a tiny offscreen button to get around making the bar itself a clickable button
 local f = self.statebuttonframe
 local off = ("%s_off"):format(state)
 if key then
 if not f then
 function Bar:SetStatePageMap(state, map)  -- map is a { ["statename"] = pagenumber } table
 local f = self.frame
 local tmp = { }
 for s, p in pairs(map) do
-table.insert(tmp, ("%s:%d"):format(s,p))
+table.insert(tmp, ("%s:page%d"):format(s,p))
 end
 local spec = table.concat(tmp,";")
 f:SetAttribute("statebutton",spec)
+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
 for i = 1, #states do
 local s = states[i]
 states[i] = ("%s:%s"):format(s,s)
 end
-table.insert(states,"_default")
+table.insert(states,"_defaultbindings")
 f:SetAttribute("statebindings",table.concat(states,";"))
+SecureStateHeader_Refresh(f)
 for b in pairs(self.buttons) do
--- TODO: signal child frames that they should
+-- TODO: signal child frames that they should maintain multiple bindings
--- maintain multiple bindings
+end
 end
-end
+local _ofskeys = { "point", "relpoint", "x", "y" }
+function Bar:SetStateAnchorMap( map ) -- 'map' is a { ["statename"] = { point=point, relpoint=relpoint, x=x, y=y } } table
+local f = self.frame
+local c = self.config
+local default = { point = c.anchor, relpoint = c.relativePoint, x = c.x, y = c.y }
+for _, key in pairs(_ofskeys) do
+local t = { }
+for state, info in pairs(map) do
+if info[key] then
+table.insert(t, ("%s:%s"):format(state, info[key]))
+end
+end
+if #t > 0 and default[key] then table.insert(t, tostring(default[key])) end
+f:SetAttribute(("headofs%s"):format(key), table.concat(t,";") or "")
+end
+SecureStateHeader_Refresh(f)
+end
+function Bar:SetStateScaleMap( map ) -- 'map' is a { ["statename"] = scalevalue } table
+local f = self.frame
+local t = { }
+for state, scale in pairs(map) do
+table.insert( t, ("%s:%s"):format(state,scale) )
+end
+if #t > 0 then table.insert(t, "1.0") end
+f:SetAttribute("headscale",table.concat(t,";") or "")
+SecureStateHeader_Refresh(f)
+end
 --
 -- Bar config overlay
 --
 local CreateControls
 si1:Hide()
 si2:Hide()
 end
 end
-CreateControls = function(bar)
+function CreateControls(bar)
 local f = bar.frame
 f:SetMovable(true)
 f:SetResizable(true)
 f:SetClampedToScreen(true)
 label:SetTextColor(1,1,1,1)
 label:SetText(bar:GetName())
 label:Show()
 bar.controlLabelString = label  -- so that bar:SetName() can update it
-local StopResize = function()
+local function StopResize()
 f:StopMovingOrSizing()
 f.isMoving = false
 f:SetScript("OnUpdate",nil)
 StoreSize(bar)
 ClampToButtons(bar)
 local tex = corner:CreateTexture(nil,"HIGHLIGHT")
 tex:SetTexture(1.0,0.82,0,0.7)
 tex:SetBlendMode("ADD")
 tex:SetAllPoints()
 corner:RegisterForDrag("LeftButton","RightButton")
-local updateTooltip = function()
+local function updateTooltip()
 local size, size2 = bar:GetButtonSize()
 local rows, cols, spacing = bar:GetButtonGrid()
 size = (size == size2) and tostring(size) or format("%dx%d",size,size2)
 GameTooltipTextRight4:SetText(size)
 GameTooltipTextRight5:SetText(tostring(spacing))
 -- Looking for a lightweight AceConfig3-struct-compatible
 -- replacement for Dewdrop, encapsulate here
 -- Considering Blizzard's EasyMenu/UIDropDownMenu, but that's
 -- a bit tricky to convert from AceConfig3-struct
 local Dewdrop = AceLibrary("Dewdrop-2.0")
-OpenMenu = function(frame, opts)
+function OpenMenu (frame, opts)
 Dewdrop:Open(frame, "children", opts, "cursorX", true, "cursorY", true)
 end
-CloseMenu = function(frame)
+function CloseMenu(frame)
 if Dewdrop:GetOpenedParent() == frame then
 Dewdrop:Close()
 end
 end
 end

Mercurial > wow > reaction

comparison Bar.lua @ 71:3d2cef5dc459