From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Mon, 26 Oct 2009 00:22:25 +0000 (-0400)
Subject: Added SDL_Pallete Capability
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fca27343b2f159b9e54ecdf87551eb2549c001a6;p=sdlgit%2FSDL_perl.git

Added SDL_Pallete Capability
---

diff --git a/Build.PL b/Build.PL
index c8b3f8a..96d6217 100644
--- a/Build.PL
+++ b/Build.PL
@@ -84,6 +84,14 @@ my %subsystems =
 		},
 		libraries => [qw( SDL )],
 	},
+	Palette => {
+		file      => {
+			from  => 'src/Core/objects/Palette.xs',
+			to    => 'lib/SDL/Palette.xs',
+		},
+		libraries => [qw( SDL )],
+	},
+
 	VideoInfo => {
 		file      => {
 			from  => 'src/Core/objects/VideoInfo.xs',
diff --git a/src/SDL.xs b/src/SDL.xs
index 13d20c6..aadfd96 100644
--- a/src/SDL.xs
+++ b/src/SDL.xs
@@ -1322,22 +1322,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