diff libs/AceEvent-2.0/AceEvent-2.0.lua @ 1:c11ca1d8ed91

Version 0.1
author Flick <flickerstreak@gmail.com>
date Tue, 20 Mar 2007 21:03:57 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libs/AceEvent-2.0/AceEvent-2.0.lua	Tue Mar 20 21:03:57 2007 +0000
@@ -0,0 +1,926 @@
+--[[
+Name: AceEvent-2.0
+Revision: $Rev: 19845 $
+Developed by: The Ace Development Team (http://www.wowace.com/index.php/The_Ace_Development_Team)
+Inspired By: Ace 1.x by Turan (turan@gryphon.com)
+Website: http://www.wowace.com/
+Documentation: http://www.wowace.com/index.php/AceEvent-2.0
+SVN: http://svn.wowace.com/root/trunk/Ace2/AceEvent-2.0
+Description: Mixin to allow for event handling, scheduling, and inter-addon
+             communication.
+Dependencies: AceLibrary, AceOO-2.0
+]]
+
+local MAJOR_VERSION = "AceEvent-2.0"
+local MINOR_VERSION = "$Revision: 19845 $"
+
+if not AceLibrary then error(MAJOR_VERSION .. " requires AceLibrary") end
+if not AceLibrary:IsNewVersion(MAJOR_VERSION, MINOR_VERSION) then return end
+
+if not AceLibrary:HasInstance("AceOO-2.0") then error(MAJOR_VERSION .. " requires AceOO-2.0") end
+
+local AceOO = AceLibrary:GetInstance("AceOO-2.0")
+local Mixin = AceOO.Mixin
+local AceEvent = Mixin {
+						"RegisterEvent",
+						"RegisterAllEvents",
+						"UnregisterEvent",
+						"UnregisterAllEvents",
+						"TriggerEvent",
+						"ScheduleEvent",
+						"ScheduleRepeatingEvent",
+						"CancelScheduledEvent",
+						"CancelAllScheduledEvents",
+						"IsEventRegistered",
+						"IsEventScheduled",
+						"RegisterBucketEvent",
+						"UnregisterBucketEvent",
+						"UnregisterAllBucketEvents",
+						"IsBucketEventRegistered",
+					   }
+
+local weakKey = {__mode="k"}
+
+local FAKE_NIL
+local RATE
+
+local eventsWhichHappenOnce = {
+	PLAYER_LOGIN = true,
+	AceEvent_FullyInitialized = true,
+	VARIABLES_LOADED = true,
+	PLAYER_LOGOUT = true,
+}
+local next = next
+local pairs = pairs
+local pcall = pcall
+local type = type
+local GetTime = GetTime
+local gcinfo = gcinfo
+local unpack = unpack
+local geterrorhandler = geterrorhandler
+
+local registeringFromAceEvent
+function AceEvent:RegisterEvent(event, method, once)
+	AceEvent:argCheck(event, 2, "string")
+	if self == AceEvent and not registeringFromAceEvent then
+		AceEvent:argCheck(method, 3, "function")
+		self = method
+	else
+		AceEvent:argCheck(method, 3, "string", "function", "nil", "boolean", "number")
+		if type(method) == "boolean" or type(method) == "number" then
+			AceEvent:argCheck(once, 4, "nil")
+			once, method = method, event
+		end
+	end
+	AceEvent:argCheck(once, 4, "number", "boolean", "nil")
+	if eventsWhichHappenOnce[event] then
+		once = true
+	end
+	local throttleRate
+	if type(once) == "number" then
+		throttleRate, once = once
+	end
+	if not method then
+		method = event
+	end
+	if type(method) == "string" and type(self[method]) ~= "function" then
+		AceEvent:error("Cannot register event %q to method %q, it does not exist", event, method)
+	else
+		assert(type(method) == "function" or type(method) == "string")
+	end
+
+	local AceEvent_registry = AceEvent.registry
+	if not AceEvent_registry[event] then
+		AceEvent_registry[event] = {}
+		AceEvent.frame:RegisterEvent(event)
+	end
+
+	local remember = true
+	if AceEvent_registry[event][self] then
+		remember = false
+	end
+	AceEvent_registry[event][self] = method
+
+	local AceEvent_onceRegistry = AceEvent.onceRegistry
+	if once then
+		if not AceEvent_onceRegistry then
+			AceEvent.onceRegistry = {}
+			AceEvent_onceRegistry = AceEvent.onceRegistry
+		end
+		if not AceEvent_onceRegistry[event] then
+			AceEvent_onceRegistry[event] = {}
+		end
+		AceEvent_onceRegistry[event][self] = true
+	else
+		if AceEvent_onceRegistry and AceEvent_onceRegistry[event] then
+			AceEvent_onceRegistry[event][self] = nil
+			if not next(AceEvent_onceRegistry[event]) then
+				AceEvent_onceRegistry[event] = nil
+			end
+		end
+	end
+
+	local AceEvent_throttleRegistry = AceEvent.throttleRegistry
+	if throttleRate then
+		if not AceEvent_throttleRegistry then
+			AceEvent.throttleRegistry = {}
+			AceEvent_throttleRegistry = AceEvent.throttleRegistry
+		end
+		if not AceEvent_throttleRegistry[event] then
+			AceEvent_throttleRegistry[event] = {}
+		end
+		if AceEvent_throttleRegistry[event][self] then
+			AceEvent_throttleRegistry[event][self] = nil
+		end
+		AceEvent_throttleRegistry[event][self] = setmetatable({}, weakKey)
+		local t = AceEvent_throttleRegistry[event][self]
+		t[RATE] = throttleRate
+	else
+		if AceEvent_throttleRegistry and AceEvent_throttleRegistry[event] then
+			if AceEvent_throttleRegistry[event][self] then
+				AceEvent_throttleRegistry[event][self] = nil
+			end
+			if not next(AceEvent_throttleRegistry[event]) then
+				AceEvent_throttleRegistry[event] = nil
+			end
+		end
+	end
+
+	if remember then
+		AceEvent:TriggerEvent("AceEvent_EventRegistered", self, event)
+	end
+end
+
+local ALL_EVENTS
+
+function AceEvent:RegisterAllEvents(method)
+	if self == AceEvent then
+		AceEvent:argCheck(method, 1, "function")
+		self = method
+	else
+		AceEvent:argCheck(method, 1, "string", "function")
+		if type(method) == "string" and type(self[method]) ~= "function" then
+			AceEvent:error("Cannot register all events to method %q, it does not exist", method)
+		end
+	end
+
+	local AceEvent_registry = AceEvent.registry
+	if not AceEvent_registry[ALL_EVENTS] then
+		AceEvent_registry[ALL_EVENTS] = {}
+		AceEvent.frame:RegisterAllEvents()
+	end
+
+	AceEvent_registry[ALL_EVENTS][self] = method
+end
+
+local memstack, timestack = {}, {}
+local memdiff, timediff
+
+local stack = setmetatable({}, {__mode='k'})
+function AceEvent:TriggerEvent(event, ...)
+	local tmp = next(stack) or {}
+	stack[tmp] = nil
+	if type(event) ~= "string" then
+		DEFAULT_CHAT_FRAME:AddMessage(debugstack())
+	end
+	AceEvent:argCheck(event, 2, "string")
+	local AceEvent_registry = AceEvent.registry
+	if (not AceEvent_registry[event] or not next(AceEvent_registry[event])) and (not AceEvent_registry[ALL_EVENTS] or not next(AceEvent_registry[ALL_EVENTS])) then
+		return
+	end
+	local lastEvent = AceEvent.currentEvent
+	AceEvent.currentEvent = event
+
+	local AceEvent_onceRegistry = AceEvent.onceRegistry
+	local AceEvent_debugTable = AceEvent.debugTable
+	if AceEvent_onceRegistry and AceEvent_onceRegistry[event] then
+		for obj, method in pairs(AceEvent_onceRegistry[event]) do
+			tmp[obj] = AceEvent_registry[event] and AceEvent_registry[event][obj] or nil
+		end
+		local obj = next(tmp)
+		while obj do
+			local mem, time
+			if AceEvent_debugTable then
+				if not AceEvent_debugTable[event] then
+					AceEvent_debugTable[event] = {}
+				end
+				if not AceEvent_debugTable[event][obj] then
+					AceEvent_debugTable[event][obj] = {
+						mem = 0,
+						time = 0,
+						count = 0,
+					}
+				end
+				if memdiff then
+					table.insert(memstack, memdiff)
+					table.insert(timestack, timediff)
+				end
+				memdiff, timediff = 0, 0
+				mem, time = gcinfo(), GetTime()
+			end
+			local method = tmp[obj]
+			AceEvent.UnregisterEvent(obj, event)
+			if type(method) == "string" then
+				local obj_method = obj[method]
+				if obj_method then
+					local success, err = pcall(obj_method, obj, ...)
+					if not success then geterrorhandler()(err) end
+				end
+			elseif method then -- function
+				local success, err = pcall(method, ...)
+				if not success then geterrorhandler()(err) end
+			end
+			if AceEvent_debugTable then
+				local dmem, dtime = memdiff, timediff
+				mem, time = gcinfo() - mem - memdiff, GetTime() - time - timediff
+				AceEvent_debugTable[event][obj].mem = AceEvent_debugTable[event][obj].mem + mem
+				AceEvent_debugTable[event][obj].time = AceEvent_debugTable[event][obj].time + time
+				AceEvent_debugTable[event][obj].count = AceEvent_debugTable[event][obj].count + 1
+
+				memdiff, timediff = table.remove(memstack), table.remove(timestack)
+				if memdiff then
+					memdiff = memdiff + mem + dmem
+					timediff = timediff + time + dtime
+				end
+			end
+			tmp[obj] = nil
+			obj = next(tmp)
+		end
+	end
+
+	local AceEvent_throttleRegistry = AceEvent.throttleRegistry
+	local throttleTable = AceEvent_throttleRegistry and AceEvent_throttleRegistry[event]
+	if AceEvent_registry[event] then
+		for obj, method in pairs(AceEvent_registry[event]) do
+			tmp[obj] = method
+		end
+		local obj = next(tmp)
+		while obj do
+			local method = tmp[obj]
+			local continue = false
+			if throttleTable and throttleTable[obj] then
+				local a1 = ...
+				if a1 == nil then
+					a1 = FAKE_NIL
+				end
+				if not throttleTable[obj][a1] or GetTime() - throttleTable[obj][a1] >= throttleTable[obj][RATE] then
+					throttleTable[obj][a1] = GetTime()
+				else
+					continue = true
+				end
+			end
+			if not continue then
+				local mem, time
+				if AceEvent_debugTable then
+					if not AceEvent_debugTable[event] then
+						AceEvent_debugTable[event] = {}
+					end
+					if not AceEvent_debugTable[event][obj] then
+						AceEvent_debugTable[event][obj] = {
+							mem = 0,
+							time = 0,
+							count = 0,
+						}
+					end
+					if memdiff then
+						table.insert(memstack, memdiff)
+						table.insert(timestack, timediff)
+					end
+					memdiff, timediff = 0, 0
+					mem, time = gcinfo(), GetTime()
+				end
+				if type(method) == "string" then
+					local obj_method = obj[method]
+					if obj_method then
+						local success, err = pcall(obj_method, obj, ...)
+						if not success then geterrorhandler()(err) end
+					end
+				elseif method then -- function
+					local success, err = pcall(method, ...)
+					if not success then geterrorhandler()(err) end
+				end
+				if AceEvent_debugTable then
+					local dmem, dtime = memdiff, timediff
+					mem, time = gcinfo() - mem - memdiff, GetTime() - time - timediff
+					AceEvent_debugTable[event][obj].mem = AceEvent_debugTable[event][obj].mem + mem
+					AceEvent_debugTable[event][obj].time = AceEvent_debugTable[event][obj].time + time
+					AceEvent_debugTable[event][obj].count = AceEvent_debugTable[event][obj].count + 1
+
+					memdiff, timediff = table.remove(memstack), table.remove(timestack)
+					if memdiff then
+						memdiff = memdiff + mem + dmem
+						timediff = timediff + time + dtime
+					end
+				end
+			end
+			tmp[obj] = nil
+			obj = next(tmp)
+		end
+	end
+	if AceEvent_registry[ALL_EVENTS] then
+		for obj, method in pairs(AceEvent_registry[ALL_EVENTS]) do
+			tmp[obj] = method
+		end
+		local obj = next(tmp)
+		while obj do
+			local method = tmp[obj]
+			local mem, time
+			if AceEvent_debugTable then
+				if not AceEvent_debugTable[event] then
+					AceEvent_debugTable[event] = {}
+				end
+				if not AceEvent_debugTable[event][obj] then
+					AceEvent_debugTable[event][obj] = {}
+					AceEvent_debugTable[event][obj].mem = 0
+					AceEvent_debugTable[event][obj].time = 0
+					AceEvent_debugTable[event][obj].count = 0
+				end
+				if memdiff then
+					table.insert(memstack, memdiff)
+					table.insert(timestack, timediff)
+				end
+				memdiff, timediff = 0, 0
+				mem, time = gcinfo(), GetTime()
+			end
+			if type(method) == "string" then
+				local obj_method = obj[method]
+				if obj_method then
+					obj_method(obj, ...)
+					local success, err = pcall(obj_method, obj, ...)
+					if not success then geterrorhandler()(err) end
+				end
+			elseif method then -- function
+				local success, err = pcall(method, ...)
+				if not success then geterrorhandler()(err) end
+			end
+			if AceEvent_debugTable then
+				local dmem, dtime = memdiff, timediff
+				mem, time = gcinfo() - mem - memdiff, GetTime() - time - timediff
+				AceEvent_debugTable[event][obj].mem = AceEvent_debugTable[event][obj].mem + mem
+				AceEvent_debugTable[event][obj].time = AceEvent_debugTable[event][obj].time + time
+				AceEvent_debugTable[event][obj].count = AceEvent_debugTable[event][obj].count + 1
+
+				memdiff, timediff = table.remove(memstack), table.remove(timestack)
+				if memdiff then
+					memdiff = memdiff + mem + dmem
+					timediff = timediff + time + dtime
+				end
+			end
+			tmp[obj] = nil
+			obj = next(tmp)
+		end
+	end
+	stack[tmp] = true
+	AceEvent.currentEvent = lastEvent
+end
+
+local delayRegistry
+local tmp = {}
+local function OnUpdate()
+	local t = GetTime()
+	for k,v in pairs(delayRegistry) do
+		tmp[k] = true
+	end
+	for k in pairs(tmp) do
+		local v = delayRegistry[k]
+		if v then
+			local v_time = v.time
+			if not v_time then
+				delayRegistry[k] = nil
+			elseif v_time <= t then
+				local v_repeatDelay = v.repeatDelay
+				if v_repeatDelay then
+					-- use the event time, not the current time, else timing inaccuracies add up over time
+					v.time = v_time + v_repeatDelay
+				end
+				local event = v.event
+				local mem, time
+				if AceEvent_debugTable then
+					mem, time = gcinfo(), GetTime()
+				end
+				if type(event) == "function" then
+					local success, err = pcall(event, unpack(v))
+					if not success then geterrorhandler()(err) end
+				else
+					AceEvent:TriggerEvent(event, unpack(v))
+				end
+				if AceEvent_debugTable then
+					mem, time = gcinfo() - mem, GetTime() - time
+					v.mem = v.mem + mem
+					v.timeSpent = v.timeSpent + time
+					v.count = v.count + 1
+				end
+				if not v_repeatDelay then
+					local x = delayRegistry[k]
+					if x and x.time == v_time then -- check if it was manually reset
+						delayRegistry[k] = nil
+					end
+				end
+			end
+		end
+	end
+	for k in pairs(tmp) do
+		tmp[k] = nil
+	end
+	if not next(delayRegistry) then
+		AceEvent.frame:Hide()
+	end
+end
+
+local function ScheduleEvent(self, repeating, event, delay, ...)
+	local id
+	if type(event) == "string" or type(event) == "table" then
+		if type(event) == "table" then
+			if not delayRegistry or not delayRegistry[event] then
+				AceEvent:error("Bad argument #2 to `ScheduleEvent'. Improper id table fed in.")
+			end
+		end
+		if type(delay) ~= "number" then
+			id, event, delay = event, delay, ...
+			AceEvent:argCheck(event, 3, "string", "function", --[[ so message is right ]] "number")
+			AceEvent:argCheck(delay, 4, "number")
+			self:CancelScheduledEvent(id)
+		end
+	else
+		AceEvent:argCheck(event, 2, "string", "function")
+		AceEvent:argCheck(delay, 3, "number")
+	end
+
+	if not delayRegistry then
+		AceEvent.delayRegistry = {}
+		delayRegistry = AceEvent.delayRegistry
+		AceEvent.frame:SetScript("OnUpdate", OnUpdate)
+	end
+	local t
+	if type(id) == "table" then
+		for k in pairs(id) do
+			id[k] = nil
+		end
+		t = id
+		for i = 2, select('#', ...) do
+			t[i-1] = select(i, ...)
+		end
+	elseif id then
+		t = { select(2, ...) }
+	else
+		t = { ... }
+	end
+	t.event = event
+	t.time = GetTime() + delay
+	t.self = self
+	t.id = id or t
+	t.repeatDelay = repeating and delay
+	if AceEvent_debugTable then
+		t.mem = 0
+		t.count = 0
+		t.timeSpent = 0
+	end
+	delayRegistry[t.id] = t
+	AceEvent.frame:Show()
+	return t.id
+end
+
+function AceEvent:ScheduleEvent(event, delay, ...)
+	if type(event) == "string" or type(event) == "table" then
+		if type(event) == "table" then
+			if not delayRegistry or not delayRegistry[event] then
+				AceEvent:error("Bad argument #2 to `ScheduleEvent'. Improper id table fed in.")
+			end
+		end
+		if type(delay) ~= "number" then
+			AceEvent:argCheck(delay, 3, "string", "function", --[[ so message is right ]] "number")
+			AceEvent:argCheck(..., 4, "number")
+		end
+	else
+		AceEvent:argCheck(event, 2, "string", "function")
+		AceEvent:argCheck(delay, 3, "number")
+	end
+
+	return ScheduleEvent(self, false, event, delay, ...)
+end
+
+function AceEvent:ScheduleRepeatingEvent(event, delay, ...)
+	if type(event) == "string" or type(event) == "table" then
+		if type(event) == "table" then
+			if not delayRegistry or not delayRegistry[event] then
+				AceEvent:error("Bad argument #2 to `ScheduleEvent'. Improper id table fed in.")
+			end
+		end
+		if type(delay) ~= "number" then
+			AceEvent:argCheck(delay, 3, "string", "function", --[[ so message is right ]] "number")
+			AceEvent:argCheck(..., 4, "number")
+		end
+	else
+		AceEvent:argCheck(event, 2, "string", "function")
+		AceEvent:argCheck(delay, 3, "number")
+	end
+
+	return ScheduleEvent(self, true, event, delay, ...)
+end
+
+function AceEvent:CancelScheduledEvent(t)
+	AceEvent:argCheck(t, 2, "string", "table")
+	if delayRegistry then
+		local v = delayRegistry[t]
+		if v then
+			delayRegistry[t] = nil
+			if not next(delayRegistry) then
+				AceEvent.frame:Hide()
+			end
+			return true
+		end
+	end
+	return false
+end
+
+function AceEvent:IsEventScheduled(t)
+	AceEvent:argCheck(t, 2, "string", "table")
+	if delayRegistry then
+		local v = delayRegistry[t]
+		if v then
+			return true, v.time - GetTime()
+		end
+	end
+	return false, nil
+end
+
+function AceEvent:UnregisterEvent(event)
+	AceEvent:argCheck(event, 2, "string")
+	local AceEvent_registry = AceEvent.registry
+	if AceEvent_registry[event] and AceEvent_registry[event][self] then
+		AceEvent_registry[event][self] = nil
+		local AceEvent_onceRegistry = AceEvent.onceRegistry
+		if AceEvent_onceRegistry and AceEvent_onceRegistry[event] and AceEvent_onceRegistry[event][self] then
+			AceEvent_onceRegistry[event][self] = nil
+			if not next(AceEvent_onceRegistry[event]) then
+				AceEvent_onceRegistry[event] = nil
+			end
+		end
+		local AceEvent_throttleRegistry = AceEvent.throttleRegistry
+		if AceEvent_throttleRegistry and AceEvent_throttleRegistry[event] and AceEvent_throttleRegistry[event][self] then
+			AceEvent_throttleRegistry[event][self] = nil
+			if not next(AceEvent_throttleRegistry[event]) then
+				AceEvent_throttleRegistry[event] = nil
+			end
+		end
+		if not next(AceEvent_registry[event]) then
+			AceEvent_registry[event] = nil
+			if not AceEvent_registry[ALL_EVENTS] or not next(AceEvent_registry[ALL_EVENTS]) then
+				AceEvent.frame:UnregisterEvent(event)
+			end
+		end
+	else
+		if self == AceEvent then
+			error(string.format("Cannot unregister event %q. Improperly unregistering from AceEvent-2.0.", event), 2)
+		else
+			AceEvent:error("Cannot unregister event %q. %q is not registered with it.", event, self)
+		end
+	end
+	AceEvent:TriggerEvent("AceEvent_EventUnregistered", self, event)
+end
+
+function AceEvent:UnregisterAllEvents()
+	local AceEvent_registry = AceEvent.registry
+	if AceEvent_registry[ALL_EVENTS] and AceEvent_registry[ALL_EVENTS][self] then
+		AceEvent_registry[ALL_EVENTS][self] = nil
+		if not next(AceEvent_registry[ALL_EVENTS]) then
+			AceEvent.frame:UnregisterAllEvents()
+			for k,v in pairs(AceEvent_registry) do
+				if k ~= ALL_EVENTS then
+					AceEvent.frame:RegisterEvent(k)
+				end
+			end
+			AceEvent_registry[ALL_EVENTS] = nil
+		end
+	end
+	local first = true
+	for event, data in pairs(AceEvent_registry) do
+		if first then
+			if AceEvent_registry.AceEvent_EventUnregistered then
+				event = "AceEvent_EventUnregistered"
+			else
+				first = false
+			end
+		end
+		local x = data[self]
+		data[self] = nil
+		if x and event ~= ALL_EVENTS then
+			if not next(data) then
+				if not AceEvent_registry[ALL_EVENTS] or not next(AceEvent_registry[ALL_EVENTS]) then
+					AceEvent.frame:UnregisterEvent(event)
+				end
+				AceEvent_registry[event] = nil
+			end
+			AceEvent:TriggerEvent("AceEvent_EventUnregistered", self, event)
+		end
+		if first then
+			event = nil
+		end
+	end
+	if AceEvent.onceRegistry then
+		for event, data in pairs(AceEvent.onceRegistry) do
+			data[self] = nil
+		end
+	end
+end
+
+function AceEvent:CancelAllScheduledEvents()
+	if delayRegistry then
+		for k,v in pairs(delayRegistry) do
+			if v.self == self then
+				delayRegistry[k] = nil
+			end
+		end
+		if not next(delayRegistry) then
+			AceEvent.frame:Hide()
+		end
+	end
+end
+
+function AceEvent:IsEventRegistered(event)
+	AceEvent:argCheck(event, 2, "string")
+	local AceEvent_registry = AceEvent.registry
+	if self == AceEvent then
+		return AceEvent_registry[event] and next(AceEvent_registry[event]) and true or false
+	end
+	if AceEvent_registry[event] and AceEvent_registry[event][self] then
+		return true, AceEvent_registry[event][self]
+	end
+	return false, nil
+end
+
+local bucketfunc
+function AceEvent:RegisterBucketEvent(event, delay, method)
+	AceEvent:argCheck(event, 2, "string", "table")
+	if type(event) == "table" then
+		for k,v in pairs(event) do
+			if type(k) ~= "number" then
+				AceEvent:error("All keys to argument #2 to `RegisterBucketEvent' must be numbers.")
+			elseif type(v) ~= "string" then
+				AceEvent:error("All values to argument #2 to `RegisterBucketEvent' must be strings.")
+			end
+		end
+	end
+	AceEvent:argCheck(delay, 3, "number")
+	if AceEvent == self then
+		AceEvent:argCheck(method, 4, "function")
+		self = method
+	else
+		if type(event) == "string" then
+			AceEvent:argCheck(method, 4, "string", "function", "nil")
+			if not method then
+				method = event
+			end
+		else
+			AceEvent:argCheck(method, 4, "string", "function")
+		end
+
+		if type(method) == "string" and type(self[method]) ~= "function" then
+			AceEvent:error("Cannot register event %q to method %q, it does not exist", event, method)
+		end
+	end
+	if not AceEvent.buckets then
+		AceEvent.buckets = {}
+	end
+	if not AceEvent.buckets[event] then
+		AceEvent.buckets[event] = {}
+	end
+	if not AceEvent.buckets[event][self] then
+		AceEvent.buckets[event][self] = {
+			current = {},
+			self = self
+		}
+	else
+		AceEvent.CancelScheduledEvent(self, AceEvent.buckets[event][self].id)
+	end
+	local bucket = AceEvent.buckets[event][self]
+	bucket.method = method
+
+	local func = function(arg1)
+		bucket.run = true
+		if arg1 then
+			bucket.current[arg1] = true
+		end
+	end
+	AceEvent.buckets[event][self].func = func
+	if type(event) == "string" then
+		AceEvent.RegisterEvent(self, event, func)
+	else
+		for _,v in ipairs(event) do
+			AceEvent.RegisterEvent(self, v, func)
+		end
+	end
+	if not bucketfunc then
+		bucketfunc = function(bucket)
+			local current = bucket.current
+			local method = bucket.method
+			local self = bucket.self
+			if bucket.run then
+				if type(method) == "string" then
+					self[method](self, current)
+				elseif method then -- function
+					method(current)
+				end
+				for k in pairs(current) do
+					current[k] = nil
+					k = nil
+				end
+				bucket.run = false
+			end
+		end
+	end
+	bucket.id = AceEvent.ScheduleRepeatingEvent(self, bucketfunc, delay, bucket)
+end
+
+function AceEvent:IsBucketEventRegistered(event)
+	AceEvent:argCheck(event, 2, "string", "table")
+	return AceEvent.buckets and AceEvent.buckets[event] and AceEvent.buckets[event][self]
+end
+
+function AceEvent:UnregisterBucketEvent(event)
+	AceEvent:argCheck(event, 2, "string", "table")
+	if not AceEvent.buckets or not AceEvent.buckets[event] or not AceEvent.buckets[event][self] then
+		AceEvent:error("Cannot unregister bucket event %q. %q is not registered with it.", event, self)
+	end
+
+	local bucket = AceEvent.buckets[event][self]
+
+	if type(event) == "string" then
+		AceEvent.UnregisterEvent(self, event)
+	else
+		for _,v in ipairs(event) do
+			AceEvent.UnregisterEvent(self, v)
+		end
+	end
+	AceEvent:CancelScheduledEvent(bucket.id)
+
+	AceEvent.buckets[event][self] = nil
+	if not next(AceEvent.buckets[event]) then
+		AceEvent.buckets[event] = nil
+	end
+end
+
+function AceEvent:UnregisterAllBucketEvents()
+	if not AceEvent.buckets or not next(AceEvent.buckets) then
+		return
+	end
+	for k,v in pairs(AceEvent.buckets) do
+		if v == self then
+			AceEvent.UnregisterBucketEvent(self, k)
+			k = nil
+		end
+	end
+end
+
+function AceEvent:OnEmbedDisable(target)
+	self.UnregisterAllEvents(target)
+
+	self.CancelAllScheduledEvents(target)
+
+	self.UnregisterAllBucketEvents(target)
+end
+
+function AceEvent:EnableDebugging()
+	if not self.debugTable then
+		self.debugTable = {}
+
+		if delayRegistry then
+			for k,v in pairs(self.delayRegistry) do
+				if not v.mem then
+					v.mem = 0
+					v.count = 0
+					v.timeSpent = 0
+				end
+			end
+		end
+	end
+end
+
+function AceEvent:IsFullyInitialized()
+	return self.postInit or false
+end
+
+function AceEvent:IsPostPlayerLogin()
+	return self.playerLogin or false
+end
+
+local function activate(self, oldLib, oldDeactivate)
+	AceEvent = self
+
+	if oldLib then
+		self.onceRegistry = oldLib.onceRegistry
+		self.throttleRegistry = oldLib.throttleRegistry
+		self.delayRegistry = oldLib.delayRegistry
+		self.buckets = oldLib.buckets
+		self.registry = oldLib.registry
+		self.frame = oldLib.frame
+		self.debugTable = oldLib.debugTable
+		self.playerLogin = oldLib.pew or DEFAULT_CHAT_FRAME and DEFAULT_CHAT_FRAME.defaultLanguage and true
+		self.postInit = oldLib.postInit or self.playerLogin and ChatTypeInfo and ChatTypeInfo.WHISPER and ChatTypeInfo.WHISPER.r and true
+		self.ALL_EVENTS = oldLib.ALL_EVENTS
+		self.FAKE_NIL = oldLib.FAKE_NIL
+		self.RATE = oldLib.RATE
+	end
+	if not self.registry then
+		self.registry = {}
+	end
+	if not self.frame then
+		self.frame = CreateFrame("Frame", "AceEvent20Frame")
+	end
+	if not self.ALL_EVENTS then
+		self.ALL_EVENTS = {}
+	end
+	if not self.FAKE_NIL then
+		self.FAKE_NIL = {}
+	end
+	if not self.RATE then
+		self.RATE = {}
+	end
+	ALL_EVENTS = self.ALL_EVENTS
+	FAKE_NIL = self.FAKE_NIL
+	RATE = self.RATE
+	local inPlw = false
+	local blacklist = {
+		UNIT_INVENTORY_CHANGED = true,
+		BAG_UPDATE = true,
+		ITEM_LOCK_CHANGED = true,
+		ACTIONBAR_SLOT_CHANGED = true,
+	}
+	self.frame:SetScript("OnEvent", function(_, event, ...)
+		if event == "PLAYER_ENTERING_WORLD" then
+			inPlw = false
+		elseif event == "PLAYER_LEAVING_WORLD" then
+			inPlw = true
+		end
+		if event and (not inPlw or not blacklist[event]) then
+			self:TriggerEvent(event, ...)
+		end
+	end)
+	if self.delayRegistry then
+		delayRegistry = self.delayRegistry
+		self.frame:SetScript("OnUpdate", OnUpdate)
+	end
+
+	self:UnregisterAllEvents()
+	self:CancelAllScheduledEvents()
+
+	registeringFromAceEvent = true
+	self:RegisterEvent("LOOT_OPENED", function()
+		SendAddonMessage("LOOT_OPENED", "", "RAID")
+	end)
+	registeringFromAceEvent = nil
+
+	if not self.playerLogin then
+		registeringFromAceEvent = true
+		self:RegisterEvent("PLAYER_LOGIN", function()
+			self.playerLogin = true
+		end, true)
+		registeringFromAceEvent = nil
+	end
+
+	if not self.postInit then
+		local isReload = true
+		local function func()
+			self.postInit = true
+			self:TriggerEvent("AceEvent_FullyInitialized")
+			if self.registry["CHAT_MSG_CHANNEL_NOTICE"] and self.registry["CHAT_MSG_CHANNEL_NOTICE"][self] then
+				self:UnregisterEvent("CHAT_MSG_CHANNEL_NOTICE")
+			end
+			if self.registry["MEETINGSTONE_CHANGED"] and self.registry["MEETINGSTONE_CHANGED"][self] then
+				self:UnregisterEvent("MEETINGSTONE_CHANGED")
+			end
+			if self.registry["MINIMAP_ZONE_CHANGED"] and self.registry["MINIMAP_ZONE_CHANGED"][self] then
+				self:UnregisterEvent("MINIMAP_ZONE_CHANGED")
+			end
+			if self.registry["LANGUAGE_LIST_CHANGED"] and self.registry["LANGUAGE_LIST_CHANGED"][self] then
+				self:UnregisterEvent("LANGUAGE_LIST_CHANGED")
+			end
+		end
+		registeringFromAceEvent = true
+		local f = function()
+			self.playerLogin = true
+			self:ScheduleEvent("AceEvent_FullyInitialized", func, 1)
+		end
+		self:RegisterEvent("MEETINGSTONE_CHANGED", f, true)
+		self:RegisterEvent("CHAT_MSG_CHANNEL_NOTICE", function()
+			self:ScheduleEvent("AceEvent_FullyInitialized", func, 0.05)
+		end)
+		self:RegisterEvent("LANGUAGE_LIST_CHANGED", function()
+			if self.registry["MEETINGSTONE_CHANGED"] and self.registry["MEETINGSTONE_CHANGED"][self] then
+				registeringFromAceEvent = true
+				self:UnregisterEvent("MEETINGSTONE_CHANGED")
+				self:RegisterEvent("MINIMAP_ZONE_CHANGED", f, true)
+				registeringFromAceEvent = nil
+			end
+		end)
+		self:ScheduleEvent("AceEvent_FullyInitialized", func, 10)
+		registeringFromAceEvent = nil
+	end
+
+	self:activate(oldLib, oldDeactivate)
+	if oldLib then
+		oldDeactivate(oldLib)
+	end
+end
+
+AceLibrary:Register(AceEvent, MAJOR_VERSION, MINOR_VERSION, activate)