X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=src%2FCore%2FVideo.xs;h=87b348cab470879da669a29a9f2bc82a13676ff8;hb=1e72b6a4c3c4e7a35952194412007d61c5bc3120;hp=d3b3608eff658a8c0ff9ef2bb0570af2ff117d87;hpb=c5bf64e5921a39264e01b1f3d4353373c08fb23e;p=sdlgit%2FSDL_perl.git

diff --git a/src/Core/Video.xs b/src/Core/Video.xs
index d3b3608..87b348c 100644
--- 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);
+