wow/reaction: ReAction.lua comparison

comparison ReAction.lua @ 2:8e0ff8ae4c08

Version 0.2

author	Flick <flickerstreak@gmail.com>
date	Tue, 20 Mar 2007 21:08:31 +0000
parents	c11ca1d8ed91
children

comparison

equal deleted inserted replaced

-:c11ca1d8ed91
+:8e0ff8ae4c08
 --
 -- ReAction is implemented in terms of the Ace 2 library: http://www.wowace.com
 --
 -- key binding label constants
-BINDING_HEADER_REACTION          = "ReAction"
+BINDING_HEADER_REACTION                 = "ReAction"
-BINDING_NAME_REACTION_TOGGLELOCK = "Lock/Unlock ReAction"
+BINDING_NAME_REACTION_TOGGLELOCK        = "Lock/Unlock ReAction Bars"
+BINDING_NAME_REBINDER_TOGGLEBINDINGMODE = "Toggle ReAction keybinding mode"
 -- ReAction addon setup via Ace 2
 ReAction = AceLibrary("AceAddon-2.0"):new(
 "AceConsole-2.0",
 "AceEvent-2.0",
 "AceDB-2.0",
 "FuBarPlugin-2.0"
 )
+local function tcopy(t)
+local r = { }
+for k, v in pairs(t) do
+r[k] = (type(v) == "table" and tcopy(v) or v)
+end
+return r
+end
 -- FuBar plugin setup
 ReAction.hasIcon = false
 ReAction.hasNoColor = true
+ReAction.hideMenuTitle = true
 ReAction.defaultPosition = "RIGHT"
 ReAction.defaultMinimapPosition = 240 -- degrees
-ReAction.OnMenuRequest = ReActionGlobalMenuOptions
+ReAction.OnMenuRequest = tcopy(ReActionGlobalMenuOptions)
 -- initial non-persistent state
 ReAction.locked = true
 -- localization
 self:RegisterChatCommand( {"/reaction", "/rxn"}, ReActionConsoleOptions, "REACTION" )
 self:RegisterDB("ReActionDB","ReActionDBPC")
 self:RegisterDefaults("profile", ReActionProfileDefaults)
 self:RegisterEvent("PLAYER_REGEN_DISABLED","CombatLockdown")
+self:RegisterEvent("PLAYER_ENTERING_WORLD","HideDefaultBars")
-AceLibrary("Dewdrop-2.0"):InjectAceOptionsTable(self, ReActionProfileMenuOptions)
 end
 function ReAction:OnEnable()
 if self.db.profile.firstRunDone ~= true then
 -- Do some "first-run" setup
 self.db.profile.firstRunDone = true
 elseif self.db.profile.disabled == true then
 -- print some kind of a warning
-else
+end
 self:SetupBars()
-end
 end
 function ReAction:OnDisable()
 self:Lock()
 end
 function ReAction:OnProfileEnable()
 -- handle profile switching
+self:Lock()
 self:SetupBars()
-self:Lock()
 end
 function ReAction:CombatLockdown()
 if not self:IsLocked() then
 self:Lock()
 end
 -- lock/unlock ReAction
 function ReAction:SetLocked( lock )
-self.locked = lock and true or false -- force data integrity
+if lock ~= self.locked then
-if not self.locked then
+if not lock then
 self:Print("Buttons disabled while unlocked")
 end
-for _, bar in ipairs(self.bars) do
+if not lock and InCombatLockdown() then
-if self.locked then bar:HideControls() else bar:ShowControls() end
+UIErrorsFrame:AddMessage(SPELL_FAILED_AFFECTING_COMBAT)
+else
+self.locked = lock and true or false -- force data integrity
+for _, bar in pairs(self.bars) do
+if self.locked then bar:HideControls() else bar:ShowControls() end
+end
+end
 end
 end
 function ReAction:IsLocked()
 return self.locked
 function ReAction:IsArtHidden()
 return self.db.profile.hideArt
 end
 function ReAction:SetHideArt( hide )
-self.db.profile.hideArt = hide and true or false -- force data integrity
+if InCombatLockdown() then
-self:HideArt()
+UIErrorsFrame:AddMessage(SPELL_FAILED_AFFECTING_COMBAT)
+else
+self.db.profile.hideArt = hide and true or false -- force data integrity
+self:HideArt()
+end
 end
 function ReAction:ToggleHideArt()
 self:SetHideArt( not self:IsArtHidden() )
 end
 MultiBarBottomRight
 }
 function ReAction:HideDefaultBars()
 for _, f in pairs(blizzDefaultBars) do
+f:UnregisterAllEvents()
 f:Hide()
-f:ClearAllPoints()
+f:SetParent(ReActionButtonRecycler) -- I mean it!
-f:SetParent(ReActionButtonRecycler)
+f:ClearAllPoints()                  -- no, I really mean it!
-f:UnregisterAllEvents()
 end
 end
 -- Reset bars to defaults
 function ReAction:ResetBars()
-self.db.profile.bars = ReActionProfileDefaults.bars
+if InCombatLockdown() then
-self:SetupBars()
+UIErrorsFrame:AddMessage(SPELL_FAILED_AFFECTING_COMBAT)
+else
+self.db.profile.bars = ReActionProfileDefaults.bars
+self:SetupBars()
+end
 end
 -- re-sync action IDs
 function ReAction:ResyncActionIDs()
 self:HideArt()
 -- hide the default Blizzard bars
 self:HideDefaultBars()
 -- set up the bars from the profile
-for id, info in ipairs(self.db.profile.bars) do
+-- note the use of table.maxn rather than # or ipairs:
-if self.bars[id] then self.bars[id]:Destroy() end -- remove old version of bar if switching profiles
+-- our array of bars can in fact contain holes
-self.bars[id] = ReBar:new(info, id)
+for id = 1, table.maxn(self.db.profile.bars) do
+local config = self.db.profile.bars[id]
+if self.bars[id] then
+self.bars[id]:Destroy() -- remove old version of bar if switching profiles
+end
+if config then
+self.bars[id] = ReBar:new(config, id)
+end
 end
 -- remove excess bars
-while #self.bars > #self.db.profile.bars do
+for id = table.maxn(self.db.profile.bars) + 1, table.maxn(self.bars) do
-table.remove(self.bars):Destroy()
+if self.bars[id] then
+self.bars[id]:Destroy()
+self.bars[id] = nil
+end
 end
 -- anchor the bars, have to do this in a second pass because
 -- they might be anchored to each other in a non-ordered way
-for _, bar in ipairs(self.bars) do
+for _, bar in pairs(self.bars) do
 bar:ApplyAnchor()
 end
 end
 function ReAction:NewBar()
-local c = ReActionBarConfigDefaults
+if InCombatLockdown() then
-table.insert(self.bars, ReBar:new(c, #self.bars + 1))
+UIErrorsFrame:AddMessage(SPELL_FAILED_AFFECTING_COMBAT)
-table.insert(self.db.profile.bars, c)
+else
-self:Unlock()
+local c = tcopy(ReActionBarConfigDefaults)
+local bar = ReBar:new(c, #self.bars+1)
+table.insert(self.bars, bar)
+table.insert(self.db.profile.bars, c)
+if not self.locked then
+bar:ShowControls()
+end
+end
 end
 function ReAction:DeleteBar(id)
-if self.bars[id] then
+if InCombatLockdown() then
-table.remove(self.bars, id):Destroy()
+UIErrorsFrame:AddMessage(SPELL_FAILED_AFFECTING_COMBAT)
-table.remove( self.db.profile.bars, id )
+else
+if self.bars[id] then
+-- we can't do tremove because each bar ID is encoded into the
+-- frame names as they're created. Need a nil entry in the table.
+-- The nice thing is that table.insert in NewBar() will automatically
+-- find the first nil slot.
+self.bars[id]:Destroy()
+self.bars[id] = nil
+self.db.profile.bars[id] = nil
+end
 end
 end
 function ReAction:ToggleActionID()
 if self.showActionIDs then
 -- FuBar plugin methods
 local tablet = AceLibrary("Tablet-2.0")
 function ReAction:OnTooltipUpdate()
 	local c = tablet:AddCategory("columns", 2)
-	c:AddLine("text", "ReAction bar lock", "text2", self.locked and "|cffcc0000Locked|r" or "|cff00cc00Unlocked|r")
+	c:AddLine("text", "Bar lock", "text2", self.locked and "|cffcc0000Locked|r" or "|cff00cc00Unlocked|r")
-	tablet:SetHint("|cffcc6600Shift-Click|r to toggle action bar lock. Right-click for options.")
+c:AddLine("text", "Button lock", "text2", LOCK_ACTIONBAR == "1" and "|cffcc0000Locked|r" or "|cff00cc00Unlocked|r")
+c:AddLine("text", "Kebinding mode", "text2", ReBinder:IsEnabled() and "|cff33ff33On|r" or "|cffffcc00Off|r")
+	tablet:SetHint("|cffffcc00Shift-Click|r for bar lock|n"..
+"|cff33ff33Alt-Click|r for keybindings|n"..
+"Right-click for menu")
 end
 function ReAction:OnClick(button)
 	if IsShiftKeyDown() then
 	  self:ToggleLocked()
-	end
+self:UpdateDisplay()
-	self:UpdateDisplay()
+	elseif IsAltKeyDown() then
-end
+ReBinder:ToggleEnabled()
+end
+end

Mercurial > wow > reaction

comparison ReAction.lua @ 2:8e0ff8ae4c08