From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Mon, 9 Nov 2009 19:18:26 +0000 (-0500)
Subject: migrate ResizeEvent
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=990a3dee11b975ff04fdd7a00cb4d78c6f845148;p=sdlgit%2FSDL_perl.git

migrate ResizeEvent
---

diff --git a/Build.PL b/Build.PL
index c4b605d..8535543 100644
--- a/Build.PL
+++ b/Build.PL
@@ -217,14 +217,6 @@ my %subsystems =
 		},
 		libraries => [qw( SDL )],
 	},
-	ResizeEvent => {
-		file      => {
-			from  => 'src/Core/objects/ResizeEvent.xs',
-			to    => 'lib/SDL/ResizeEvent.xs',
-		},
-		libraries => [qw( SDL )],
-	},
-
 	VideoInfo => {
 		file      => {
 			from  => 'src/Core/objects/VideoInfo.xs',
diff --git a/src/Core/objects/Event.xs b/src/Core/objects/Event.xs
index a8f3b1f..84bef79 100644
--- a/src/Core/objects/Event.xs
+++ b/src/Core/objects/Event.xs
@@ -311,6 +311,45 @@ event_resize ( event, ... )
 	OUTPUT:
 		RETVAL
 
+Uint8
+event_resize_type ( event, ... )
+	SDL_Event *event
+	CODE: 
+		SDL_ResizeEvent * r = &(event->resize);
+		RETVAL = r->type;
+	OUTPUT:
+		RETVAL
+
+int
+event_resize_w ( event, ... )
+	SDL_Event *event
+	CODE: 
+		SDL_ResizeEvent * r = &(event->resize);
+		if( items > 1 )
+		{
+			r->w = SvIV( ST(1) );
+
+		}
+
+		RETVAL = r->w;
+	OUTPUT:
+		RETVAL
+
+int
+event_resize_h ( event, ... )
+	SDL_Event *event
+	CODE: 
+		 SDL_ResizeEvent * r = &(event->resize); 
+		if( items > 1 )
+		{
+			r->h = SvIV( ST(1) );
+
+		}
+
+		RETVAL = r->h;
+	OUTPUT:
+		RETVAL
+
 SDL_ExposeEvent *
 event_expose ( event, ... )
 	SDL_Event * event