Typo fixes. NULL is a pointer cannot be assinged to integer value.

diff --git a/lib/SDL/WManagement.pm b/lib/SDL/WManagement.pm
index 4814da1..8b7a0a3 100644 (file)
--- a/lib/SDL/WManagement.pm
+++ b/lib/SDL/WManagement.pm
@@ -1,8 +1,8 @@
-package SDL::WMangement;
+package SDL::WManagement;
 use strict;
 use warnings;
 require Exporter;
 require DynaLoader;
 our @ISA = qw(Exporter DynaLoader);
-bootstrap SDL::WMangement;
+bootstrap SDL::WManagement;
 1;

diff --git a/src/Core/WManagement.xs b/src/Core/WManagement.xs
index cf882ff..7221de2 100644 (file)
--- a/src/Core/WManagement.xs
+++ b/src/Core/WManagement.xs
@@ -20,4 +20,9 @@ Described on the SDL API site.
 
 =cut
 
-
+int
+wmanage_get_WM_info(  )
+       CODE:
+               RETVAL = 1;
+       OUTPUT:
+               RETVAL

diff --git a/src/Core/objects/Event.xs b/src/Core/objects/Event.xs
index 539da64..750a4f9 100644 (file)
--- a/src/Core/objects/Event.xs
+++ b/src/Core/objects/Event.xs
@@ -47,7 +47,7 @@ Uint8
 event_type ( event, ... )
        SDL_Event *event
        CODE:
-               RETVAL = NULL;
+               RETVAL = -1;
                if ( &event != NULL ) 
                RETVAL = event->type;
        OUTPUT:
@@ -179,7 +179,7 @@ event_quit ( event, ... )
        PREINIT:
                char *CLASS = "SDL::QuitEvent";
        CODE:
-               RETVAL = NULL;
+               RETVALE = NULL;
                if ( &event != NULL ) 
                RETVAL = &(event->quit);
        OUTPUT:
@@ -191,7 +191,7 @@ event_user ( event, ... )
        PREINIT:
                char *CLASS = "SDL::UserEvent";
        CODE:
-               RETVAL = NULL;
+               RETVALE = NULL;
                if ( &event != NULL ) 
                RETVAL = &(event->user);
        OUTPUT:
@@ -203,7 +203,7 @@ event_syswm ( event, ... )
        PREINIT:
                char *CLASS = "SDL::SysWMEvent";
        CODE:
-               RETVAL = NULL;
+               RETVALE = NULL;
                if ( &event != NULL ) 
                RETVAL = &(event->syswm);
        OUTPUT:

diff --git a/typemap b/typemap
index 7eedfbf..bdd4c52 100644 (file)
--- a/typemap
+++ b/typemap
@@ -40,6 +40,7 @@ SDL_Palette *         O_OBJECT
 SDL_PixelFormat *      O_OBJECT
 SDL_VideoInfo *                O_OBJECT
 SDL_version *          O_OBJECT
+SDL_SysWMInfo *                O_OBJECT
 SDL_Cursor *           T_PTR
 SDL_AudioSpec *                T_PTR
 SDL_AudioCVT *         T_PTR