remove ugly hack

diff --git a/lib/SDL/App.pm b/lib/SDL/App.pm
index afdb5a3..86e4ea4 100644 (file)
--- a/lib/SDL/App.pm
+++ b/lib/SDL/App.pm
@@ -112,7 +112,7 @@ sub new {
                $SDL::App::USING_OPENGL = 0;
        }
 
-       my $self = SDL::SetVideoMode('SDL::Surface',$w,$h,$d,$f)
+       my $self = SDL::SetVideoMode($w,$h,$d,$f)
                or croak SDL::GetError();
        
        if ($ic and -e $ic) {

diff --git a/src/SDL.xs b/src/SDL.xs
index 4d41a37..13d265c 100644 (file)
--- a/src/SDL.xs
+++ b/src/SDL.xs
@@ -1240,14 +1240,15 @@ PaletteNColors ( palette, ... )
                RETVAL
 
 SDL_Surface *
-SetVideoMode ( CLASS, width, height, bpp, flags )
-        char* CLASS
+SetVideoMode ( width, height, bpp, flags )
+
        int width
        int height
        int bpp
        Uint32 flags
 
        CODE:
+               char *CLASS = "SDL::Surface";
                RETVAL = SDL_SetVideoMode(width,height,bpp,flags);
        OUTPUT:
                RETVAL