added event accessors

Build.PL

@@ -56,6 +56,13 @@ my %subsystems =
 		},
 		libraries => [qw( SDL )],
 	},
+	Event => {
+		file      => {
+			from  => 'src/Core/objects/Event.xs',
+			to    => 'lib/SDL/Event.xs',
+		},
+		libraries => [qw( SDL )],
+	},
 	ExposeEvent => {
 		file      => {
 			from  => 'src/Core/objects/ExposeEvent.xs',

src/Core/objects/Event.xs

@@ -8,7 +8,7 @@
 
 #include <SDL.h>
 
-MODULE = SDL::Event 	PACKAGE = SDL::Rect    PREFIX = event_
+MODULE = SDL::Event 	PACKAGE = SDL::Event    PREFIX = event_
 
 =for documentation
 
@@ -36,9 +36,9 @@ SDL_Event -- General event structure
 
 SDL_Event *
 event_new (CLASS)
-	char* CLASS
+	char *CLASS
 	CODE:
-		SDL_Event* empty_event;
+		SDL_Event *empty_event;
 		RETVAL = empty_event;
 	OUTPUT:
 		RETVAL
@@ -56,11 +56,156 @@ event_type ( event, ... )
 SDL_ActiveEvent *
 event_active ( event, ... )
 	SDL_Event *event
+	PREINIT:
+		char *CLASS = "SDL::ActiveEvent";
 	CODE:
 		RETVAL = NULL;
 		if ( &event != NULL ) 
 		RETVAL = &(event->active);
 	OUTPUT:
 		RETVAL
 
+SDL_KeyboardEvent *
+event_key ( event, ... )
+	SDL_Event *event
+	PREINIT:
+		char *CLASS = "SDL::KeyboardEvent";
+	CODE:
+		RETVAL = NULL;
+		if ( &event != NULL ) 
+		RETVAL = &(event->key);
+	OUTPUT:
+		RETVAL
+
+SDL_MouseMotionEvent *
+event_motion ( event, ... )
+	SDL_Event *event
+	PREINIT:
+		char *CLASS = "SDL::MouseMotionEvent";
+	CODE:
+		RETVAL = NULL;
+		if ( &event != NULL ) 
+		RETVAL = &(event->motion);
+	OUTPUT:
+		RETVAL
+
+SDL_MouseButtonEvent *
+event_button ( event, ... )
+	SDL_Event *event
+	PREINIT:
+		char *CLASS = "SDL::MouseButtonEvent";
+	CODE:
+		RETVAL = NULL;
+		if ( &event != NULL ) 
+		RETVAL = &(event->button);
+	OUTPUT:
+		RETVAL
+
+SDL_JoyAxisEvent *
+event_jaxis ( event, ... )
+	SDL_Event *event
+	PREINIT:
+		char *CLASS = "SDL::JoyAxisEvent";
+	CODE:
+		RETVAL = NULL;
+		if ( &event != NULL ) 
+		RETVAL = &(event->jaxis);
+	OUTPUT:
+		RETVAL
+
+SDL_JoyBallEvent *
+event_jball ( event, ... )
+	SDL_Event *event
+	PREINIT:
+		char *CLASS = "SDL::JoyBallEvent";
+	CODE:
+		RETVAL = NULL;
+		if ( &event != NULL ) 
+		RETVAL = &(event->jball);
+	OUTPUT:
+		RETVAL
+
+SDL_JoyHatEvent *
+event_jhat ( event, ... )
+	SDL_Event *event
+	PREINIT:
+		char *CLASS = "SDL::JoyHatEvent";
+	CODE:
+		RETVAL = NULL;
+		if ( &event != NULL ) 
+		RETVAL = &(event->jhat);
+	OUTPUT:
+		RETVAL
+
+SDL_JoyButtonEvent *
+event_jbutton ( event, ... )
+	SDL_Event *event
+	PREINIT:
+		char *CLASS = "SDL::JoyButtonEvent";
+	CODE:
+		RETVAL = NULL;
+		if ( &event != NULL ) 
+		RETVAL = &(event->jbutton);
+	OUTPUT:
+		RETVAL
+
+SDL_ResizeEvent *
+event_resize ( event, ... )
+	SDL_Event *event
+	PREINIT:
+		char *CLASS = "SDL::ResizeEvent";
+	CODE:
+		RETVAL = NULL;
+		if ( &event != NULL ) 
+		RETVAL = &(event->resize);
+	OUTPUT:
+		RETVAL
+
+SDL_ExposeEvent *
+event_expose ( event, ... )
+	SDL_Event *event
+	PREINIT:
+		char *CLASS = "SDL::ExposeEvent";
+	CODE:
+		RETVAL = NULL;
+		if ( &event != NULL ) 
+		RETVAL = &(event->expose);
+	OUTPUT:
+		RETVAL
+
+SDL_QuitEvent *
+event_quit ( event, ... )
+	SDL_Event *event
+	PREINIT:
+		char *CLASS = "SDL::QuitEvent";
+	CODE:
+		RETVAL = NULL;
+		if ( &event != NULL ) 
+		RETVAL = &(event->quit);
+	OUTPUT:
+		RETVAL
+
+SDL_UserEvent *
+event_user ( event, ... )
+	SDL_Event *event
+	PREINIT:
+		char *CLASS = "SDL::UserEvent";
+	CODE:
+		RETVAL = NULL;
+		if ( &event != NULL ) 
+		RETVAL = &(event->user);
+	OUTPUT:
+		RETVAL
+
+SDL_SysWMEvent *
+event_syswm ( event, ... )
+	SDL_Event *event
+	PREINIT:
+		char *CLASS = "SDL::SysWMEvent";
+	CODE:
+		RETVAL = NULL;
+		if ( &event != NULL ) 
+		RETVAL = &(event->syswm);
+	OUTPUT:
+		RETVAL