Finish MouseMotionEvent and fixed some tyops

diff --git a/src/Core/objects/ActiveEvent.xs b/src/Core/objects/ActiveEvent.xs
index 09c3fa3..6fa0934 100644 (file)
--- a/src/Core/objects/ActiveEvent.xs
+++ b/src/Core/objects/ActiveEvent.xs
@@ -69,7 +69,7 @@ aevent_state ( event, ... )
                RETVAL
 
 void
-uevent_DESTROY(self)
+aevent_DESTROY(self)
        SDL_ActiveEvent *self
        CODE:
                safefree( (char *)self );

diff --git a/src/Core/objects/JoyHatEvent.xs b/src/Core/objects/JoyHatEvent.xs
index c4801ba..e14c34d 100644 (file)
--- a/src/Core/objects/JoyHatEvent.xs
+++ b/src/Core/objects/JoyHatEvent.xs
@@ -58,6 +58,7 @@ jhevent_which ( event, ... )
 Uint8
 jhevent_hat ( event, ... )
        SDL_JoyHatEvent *event
+       CODE:
        if( items > 1 )
                {
                        event->hat = SvIV( ST(1) );
@@ -65,7 +66,6 @@ jhevent_hat ( event, ... )
                }
 
 
-       CODE: 
                RETVAL = event->hat;
        OUTPUT:
                RETVAL

diff --git a/src/Core/objects/MouseMotionEvent.xs b/src/Core/objects/MouseMotionEvent.xs
index 4836df8..da80e6d 100644 (file)
--- a/src/Core/objects/MouseMotionEvent.xs
+++ b/src/Core/objects/MouseMotionEvent.xs
@@ -45,6 +45,11 @@ Uint8
 mmevent_state ( event, ... )
        SDL_MouseMotionEvent *event
        CODE: 
+       if( items > 1 )
+               {
+                       event->state = SvIV( ST(1) );
+
+               }
                RETVAL = event->state;
        OUTPUT:
                RETVAL
@@ -53,6 +58,11 @@ Uint16
 mmevent_x ( event, ... )
        SDL_MouseMotionEvent *event
        CODE: 
+       if( items > 1 )
+               {
+                       event->x = SvIV( ST(1) );
+
+               }
                RETVAL = event->x;
        OUTPUT:
                RETVAL
@@ -61,6 +71,11 @@ Uint16
 mmevent_y ( event, ... )
        SDL_MouseMotionEvent *event
        CODE: 
+       if( items > 1 )
+               {
+                       event->y = SvIV( ST(1) );
+
+               }
                RETVAL = event->y;
        OUTPUT:
                RETVAL
@@ -69,14 +84,31 @@ Uint16
 mmevent_xrel ( event, ... )
        SDL_MouseMotionEvent *event
        CODE: 
+       if( items > 1 )
+               {
+                       event->xrel = SvIV( ST(1) );
+
+               }
                RETVAL = event->xrel;
        OUTPUT:
                RETVAL
 
+
 Uint16
 mmevent_yrel ( event, ... )
        SDL_MouseMotionEvent *event
        CODE: 
+       if( items > 1 )
+               {
+                       event->yrel = SvIV( ST(1) );
+
+               }
                RETVAL = event->yrel;
        OUTPUT:
                RETVAL
+
+void
+mmtevent_DESTROY(self)
+       SDL_MouseMotionEvent *self
+       CODE:
+               safefree( (char *)self );