Added video_mode_ok() and its test. Fixed test list_modes better

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

diff --git a/src/Core/Video.xs b/src/Core/Video.xs
index caf83fc..0a4569d 100644 (file)
--- a/src/Core/Video.xs
+++ b/src/Core/Video.xs
@@ -76,5 +76,15 @@ list_modes ( format, flags )
                RETVAL
 
 
+int
+video_video_mode_ok ( width, height, bpp, flags )
+       int width
+       int height
+       int bpp
+       Uint32 flags
+       CODE:
+               RETVAL = SDL_VideoModeOK(width,height,bpp,flags);
+       OUTPUT:
+               RETVAL