From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Sun, 8 Nov 2009 16:06:06 +0000 (-0500)
Subject: Events which can have multiple types should get and set type
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=51aadf3aa46bb05c3a73598d298518858b0c8d90;p=sdlgit%2FSDL_perl.git

Events which can have multiple types should get and set type
---

diff --git a/src/Core/objects/JoyButtonEvent.xs b/src/Core/objects/JoyButtonEvent.xs
index ae6e01d..e332d4e 100644
--- a/src/Core/objects/JoyButtonEvent.xs
+++ b/src/Core/objects/JoyButtonEvent.xs
@@ -34,11 +34,17 @@ jbevent_new ( CLASS )
 		RETVAL
 
 Uint8
-jbevent_type ( event )
+jbevent_type ( event, ... )
 
 	SDL_JoyButtonEvent * event
 
 	CODE:
+		if( items > 1 )
+		{
+			event->type = SvIV( ST(1) );
+
+		}
+
 		RETVAL = event->type;
 	OUTPUT:
 		RETVAL