tekkub / cork
watch download tarball
public
Forks7Right
Watchers14Right
Description: WoW Addon - Generic reminder framework
Homepage: http://www.tekkub.net/
Clone URL: git://github.com/tekkub/cork.git
Click here to lend your support to: cork and make a donation at www.pledgie.com ! 
Merge commit '3.2.0.26-Beta'
tekkub (author)
Sun Nov 08 00:19:33 -0800 2009
commit  2ba4ab9a865cb86eb4d370f1ad2a56537199cffe
tree    6163f9a847195e9203b2cae77593785883dacf9e
parent  d9adecf318c59858137aaf0eb157f01a478acec0 parent  8706d8c0edf1d084f7c2d649ae878482fa689384
cork / Mousewheel.lua
100644 27 lines (20 sloc) 0.859 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

-- Dynamic mousewheel binding module, originally created by Adirelle <gperreal@free.fr>
 
local function ClearBindings()
	if InCombatLockdown() then return end
	ClearOverrideBindings(CorkFrame)
end
 
function Cork:UpdateMouseBinding(event, unit)
	if InCombatLockdown() then return end
	if Cork.db.bindwheel and (event ~= "PLAYER_REGEN_DISABLED") and Corkboard:IsVisible() then
		SetOverrideBindingClick(CorkFrame, true, 'MOUSEWHEELUP', 'CorkFrame')
		SetOverrideBindingClick(CorkFrame, true, 'MOUSEWHEELDOWN', 'CorkFrame')
	else
		ClearOverrideBindings(CorkFrame)
	end
end
 
 
local frame = CreateFrame('Frame', nil, Corkboard)
frame:SetScript('OnShow', Cork.UpdateMouseBinding)
frame:SetScript('OnHide', ClearBindings)
 
frame:SetScript("OnEvent", Cork.UpdateMouseBinding)
frame:RegisterEvent('PLAYER_REGEN_ENABLED')
frame:RegisterEvent('PLAYER_REGEN_DISABLED')