From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Sun, 8 Nov 2009 00:23:28 +0000 (-0500)
Subject: Finished up ActiveEvent
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0d5c98731cf740da207828977cb58166b2b30390;p=sdlgit%2FSDL_perl.git

Finished up ActiveEvent
---

diff --git a/src/Core/objects/ActiveEvent.xs b/src/Core/objects/ActiveEvent.xs
index bb2b333..09c3fa3 100644
--- a/src/Core/objects/ActiveEvent.xs
+++ b/src/Core/objects/ActiveEvent.xs
@@ -45,6 +45,11 @@ Uint8
 aevent_gain ( event, ... )
 	SDL_ActiveEvent *event
 	CODE: 
+		if( items > 1 )
+		{
+			event->gain = SvIV( ST(1) );
+
+		}
 		RETVAL = event->gain;
 	OUTPUT:
 		RETVAL
@@ -53,6 +58,18 @@ Uint8
 aevent_state ( event, ... )
 	SDL_ActiveEvent *event
 	CODE: 
+		if( items > 1 )
+		{
+			event->state = SvIV( ST(1) );
+
+		}
+		
 		RETVAL = event->state;
 	OUTPUT:
 		RETVAL
+
+void
+uevent_DESTROY(self)
+	SDL_ActiveEvent *self
+	CODE:
+		safefree( (char *)self );