# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1282397896 -3600
# Node ID 1dccff7df2d53e57065c1fe2a3dda8603c8df58b
# Parent  ad6006779416489ea43fd544c946209dd28ce5d2
verse: Add verse.eventable() to give a passed object :event() and :hook()/:unhook() methods and return it again

diff -r ad6006779416 -r 1dccff7df2d5 init.lua
--- a/init.lua	Sat Aug 21 14:37:10 2010 +0100
+++ b/init.lua	Sat Aug 21 14:38:16 2010 +0100
@@ -126,6 +126,16 @@
 	return self.events.remove_handler(name, handler);
 end
 
+function verse.eventable(object)
+        object.events = events.new();
+        object.hook, object.unhook = stream.hook, stream.unhook;
+        local fire_event = object.events.fire_event;
+        function object:event(name, ...)
+                return fire_event(name, ...);
+        end
+        return object;
+end
+
 function stream:add_plugin(name)
 	if require("verse.plugins."..name) then
 		local ok, err = verse.plugins[name](self);