Fixed up the test for video_set_colors

[sdlgit/SDL_perl.git] / src / SDL.xs

diff --git a/src/SDL.xs b/src/SDL.xs
index 630e327..50e286a 100644 (file)
--- a/src/SDL.xs
+++ b/src/SDL.xs
@@ -1210,6 +1210,7 @@ ListModes ( format, flags )
                }
        OUTPUT:
                RETVAL
+=skip
 
 SDL_Palette *
 NewPalette ( number )
@@ -1221,6 +1222,7 @@ NewPalette ( number )
                RETVAL->ncolors = number;
        OUTPUT:
                RETVAL
+=cut
 
 int
 PaletteNColors ( palette, ... )
@@ -1322,22 +1324,6 @@ UpdateRects ( surface, ... )
 
 Comment out for now as it does not compile
 
-SDL_Color *
-PaletteColors ( palette, index, ... )
-       SDL_Palette *palette
-       int index
-       CODE:
-               if ( items > 2 ) {
-                       palette->colors[index].r = SvUV(ST(2)); 
-                       palette->colors[index].g = SvUV(ST(3)); 
-                       palette->colors[index].b = SvUV(ST(4)); 
-               }
-               RETVAL = (SDL_Color *)(palette->colors + index);
-       OUTPUT:
-               RETVAL
-
-
-
 int
 VideoModeOK ( width, height, bpp, flags )
        int width
@@ -2787,17 +2773,6 @@ NetRead32 ( area )
 
 #endif 
 
-SDL_Overlay*
-CreateYUVOverlay ( width, height, format, display )
-       int width
-       int height
-       Uint32 format
-       SDL_Surface *display
-       CODE:
-               RETVAL = SDL_CreateYUVOverlay ( width, height, format, display );
-       OUTPUT:
-               RETVAL
-
 int
 LockYUVOverlay ( overlay )
        SDL_Overlay *overlay
@@ -2821,12 +2796,6 @@ DisplayYUVOverlay ( overlay, dstrect )
        OUTPUT:
                RETVAL
 
-void
-FreeYUVOverlay ( overlay )
-        SDL_Overlay *overlay
-        CODE:
-                SDL_FreeYUVOverlay ( overlay );
-
 Uint32
 OverlayFormat ( overlay, ... )
        SDL_Overlay *overlay