X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=src%2FCore%2FVideo.xs;h=f080344881201529895dfea1b244683168738080;hb=d345ba03154eec37e50e43fda96ebb5ac24df2e9;hp=a8a9a1ea586ecfb0611ea720afb3c4338db350e7;hpb=56edfae7155aa08747e42ba26c3f745e7610e7b4;p=sdlgit%2FSDL_perl.git

diff --git a/src/Core/Video.xs b/src/Core/Video.xs
index a8a9a1e..f080344 100644
--- a/src/Core/Video.xs
+++ b/src/Core/Video.xs
@@ -8,6 +8,7 @@
 
 #include <SDL.h>
 
+#define WARNMSG "is unsupported in windows. Contact us at #sdl irc.perl.org or sdl-devel@perl.org for help."
 
 static Uint16* av_to_uint16 (AV* av)
 {
@@ -225,7 +226,13 @@ video_set_gamma(r, g, b)
 	float g;
 	float b;
 	CODE:
+		RETVAL = -1;
+#if defined WIN32 || WINDOWS 
+		warn( "set_gamma: %s", WARNMSG );
+#else
 		RETVAL = SDL_SetGamma(r,g,b);
+#endif
+
 	OUTPUT:	
 		RETVAL
 
@@ -236,6 +243,9 @@ video_set_gamma_ramp( rt, gt, bt )
 	AV* gt;
 	AV* bt;
 	CODE:
+#if defined WIN32 || WINDOWS 
+		warn( "set_gamma_ramp: %s", WARNMSG );
+#else
 		Uint16 *redtable, *greentable, *bluetable;
 		redtable = av_to_uint16(rt);
 		greentable = av_to_uint16(gt);
@@ -244,6 +254,7 @@ video_set_gamma_ramp( rt, gt, bt )
 		if( redtable != NULL) { safefree(redtable); }
 		if( greentable != NULL) { safefree(greentable); }
 		if( bluetable != NULL) { safefree(bluetable); }	
+#endif
 	OUTPUT:
 		RETVAL