From 9e0d2195f12aedb7d9767c901bde482ada9b0945 Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Sat, 16 May 2009 15:56:45 +0500
Subject: util.events: handler priorities

---
 util/events.lua | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'util/events.lua')

diff --git a/util/events.lua b/util/events.lua
index 704d31a4..54816271 100644
--- a/util/events.lua
+++ b/util/events.lua
@@ -2,6 +2,7 @@
 local ipairs = ipairs;
 local pairs = pairs;
 local t_insert = table.insert;
+local t_sort = table.sort;
 local select = select;
 
 module "events"
@@ -19,14 +20,15 @@ function new()
 			for handler in pairs(_handlers) do
 				t_insert(index, handler);
 			end
+			t_sort(index, function(a, b) return _handlers[a] > _handlers[b]; end);
 		end
 	end;
-	local function add_handler(event, handler)
+	local function add_handler(event, handler, priority)
 		local map = event_map[event];
 		if map then
-			map[handler] = true;
+			map[handler] = priority or 0;
 		else
-			map = {[handler] = true};
+			map = {[handler] = priority or 0};
 			event_map[event] = map;
 		end
 		_rebuild_index();
-- 
cgit v1.2.3