Fixed test. But the returned value for the fuction SDL::TTFSizeUTF8 seems weird

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

diff --git a/src/SDL.xs b/src/SDL.xs
index f6660fa..5f73b68 100644 (file)
--- a/src/SDL.xs
+++ b/src/SDL.xs
@@ -1323,6 +1323,21 @@ ColorB ( color, ... )
        OUTPUT:
                RETVAL
 
+
+void
+ColorRGB ( color, ... )
+ SDL_Color *color
+ PPCODE:
+ if (items > 1 ) {
+ color->r = SvIV(ST(1));
+ color->g = SvIV(ST(2));
+ color->b = SvIV(ST(3));
+ }
+ mXPUSHi( color->r );
+ mXPUSHi( color->g );
+ mXPUSHi( color->b );
+ XSRETURN(3);
+
 void
 FreeColor ( color )
        SDL_Color *color
@@ -2978,8 +2993,11 @@ TTFSizeUTF8 ( font, text )
                int w,h;
                RETVAL = newAV();
                TTF_SizeUTF8(font,text,&w,&h);
-               av_push(RETVAL,newSViv(w));
-               av_push(RETVAL,newSViv(h));
+                       av_push(RETVAL,newSViv(w));
+                       av_push(RETVAL,newSViv(h));
+               
+               sv_2mortal((SV*)RETVAL);
+               
        OUTPUT:
                RETVAL