Added lock and unlock surface for SDL::Video and added tests

[sdlgit/SDL_perl.git] / src / Core / Video.xs

diff --git a/src/Core/Video.xs b/src/Core/Video.xs
index d3b3608..87b348c 100644 (file)
--- a/src/Core/Video.xs
+++ b/src/Core/Video.xs
@@ -266,3 +266,17 @@ video_map_RGBA ( pixel_format, r, g, b, a )
        OUTPUT:
                RETVAL
 
+int
+video_lock_surface ( surface )
+       SDL_Surface *surface
+       CODE:
+               RETVAL = SDL_LockSurface(surface);
+       OUTPUT:
+               RETVAL
+
+void
+video_unlock_surface ( surface )
+       SDL_Surface *surface
+       CODE:
+               SDL_UnlockSurface(surface);
+