Added SDL::Video::flip and test

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

diff --git a/src/Core/Video.xs b/src/Core/Video.xs
index b6b8fa3..6e318e7 100644 (file)
--- a/src/Core/Video.xs
+++ b/src/Core/Video.xs
@@ -128,3 +128,11 @@ video_update_rects ( surface, ... )
                safefree(rects);
 
 
+int
+video_flip ( surface )
+       SDL_Surface *surface
+       CODE:
+               RETVAL = SDL_Flip(surface);
+       OUTPUT:
+               RETVAL
+