Remove update_rect from Surface.xs, enable it in SDL.xs
Leon Brocard [Fri, 16 Oct 2009 09:52:45 +0000 (10:52 +0100)]
src/Core/objects/Surface.xs
src/SDL.xs
t/core_surface.t
t/intergation1.t

index 993a3eb..90e8aba 100644 (file)
@@ -55,16 +55,6 @@ surface_format ( surface )
                RETVAL
 
 void
-surface_update_rect ( surface, x, y, w ,h )
-       SDL_Surface *surface
-       int x
-       int y
-       int w
-       int h
-       CODE:
-               SDL_UpdateRect(surface,x,y,w,h);
-
-void
 surface_update_rects ( surface, ... )
        SDL_Surface *surface
        CODE:
index 256cb40..1dcddae 100644 (file)
@@ -1284,6 +1284,16 @@ MapRGB ( pixel_format, r, g, b )
        OUTPUT:
                RETVAL
 
+void
+UpdateRect ( surface, x, y, w ,h )
+       SDL_Surface *surface
+       int x
+       int y
+       int w
+       int h
+       CODE:
+               SDL_UpdateRect(surface,x,y,w,h);
+
 =for comment
 
 Comment out for now as it does not compile
@@ -1327,16 +1337,6 @@ SetVideoMode ( width, height, bpp, flags )
                RETVAL
 
 void
-UpdateRect ( surface, x, y, w ,h )
-       SDL_Surface *surface
-       int x
-       int y
-       int w
-       int h
-       CODE:
-               SDL_UpdateRect(surface,x,y,w,h);
-
-void
 UpdateRects ( surface, ... )
        SDL_Surface *surface
        CODE:
index a047948..d87811c 100644 (file)
@@ -91,7 +91,7 @@ my $rect = SDL::Rect->new( 0, 0, $app->w, $app->h );
 
 my $blue_pixel = SDL::MapRGB( $app_pixel_format, 0x00, 0x00, 0xff );
 SDL::FillRect( $app, $rect, $blue_pixel );
-SDL::Surface::update_rect( $app, 0, 0, 0, 0 );
+SDL::UpdateRect( $app, 0, 0, 0, 0 );
 
 diag( 'This is in surface : ' . SDL::Surface::get_pixels($app) );
 
index 9bbc491..eb9cd98 100644 (file)
@@ -78,7 +78,7 @@ can_ok ('SDL::App', qw/
        SDL::FillRect( $app, $rect, $blue_pixel );
        SDL::FillRect( $app, $grect, $col_pixel );
 
-        SDL::Surface::update_rect($app, 0, 0, 640, 480);
+        SDL::UpdateRect($app, 0, 0, 640, 480);
         SDL::Delay(10);
        }