Fix bug with TTFSizeText, it actually returns 0 on success

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

diff --git a/src/Rect.xs b/src/Rect.xs
index 61b8c4e..cde0b7a 100644 (file)
--- a/src/Rect.xs
+++ b/src/Rect.xs
@@ -10,17 +10,21 @@
 
 
 
-MODULE = SDL::Rect     PACKAGE = SDL::Rect
+MODULE = SDL::Rect     PACKAGE = SDL::Rect    PREFIX = rect_
 
 SDL_Rect *
-new (CLASS)
+rect_new (CLASS, x, y, w, h)
        char* CLASS
+       Sint16 x
+        Sint16 y
+        Uint16 w
+        Uint16 h
        CODE:
                RETVAL = (SDL_Rect *) safemalloc (sizeof(SDL_Rect));
-               RETVAL->x = 0;
-               RETVAL->y = 0;
-               RETVAL->w = 0;
-               RETVAL->h = 0;
+               RETVAL->x = x;
+               RETVAL->y = y;
+               RETVAL->w = w;
+               RETVAL->h = h;
        OUTPUT:
                RETVAL
 
@@ -39,7 +43,7 @@ SetRect(rect, x, y, w, h)
                
 
 Sint16
-RectX ( rect, ... )
+rect_RectX ( rect, ... )
        SDL_Rect *rect
        CODE:
                if (items > 1 ) rect->x = SvIV(ST(1)); 
@@ -48,7 +52,7 @@ RectX ( rect, ... )
                RETVAL
 
 Sint16
-RectY ( rect, ... )
+rect_RectY ( rect, ... )
        SDL_Rect *rect
        CODE:
                if (items > 1 ) rect->y = SvIV(ST(1)); 
@@ -57,7 +61,7 @@ RectY ( rect, ... )
                RETVAL
 
 Uint16
-RectW ( rect, ... )
+rect_RectW ( rect, ... )
        SDL_Rect *rect
        CODE:
                if (items > 1 ) rect->w = SvIV(ST(1)); 
@@ -66,7 +70,7 @@ RectW ( rect, ... )
                RETVAL
 
 Uint16
-RectH ( rect, ... )
+rect_RectH ( rect, ... )
        SDL_Rect *rect
        CODE:
                if (items > 1 ) rect->h = SvIV(ST(1)); 
@@ -76,10 +80,10 @@ RectH ( rect, ... )
 
 
 void
-DESTROY(self)
+rect_DESTROY(self)
        SDL_Rect *self
        CODE:
-               printf("RectPtr::DESTROY\n");
+
                safefree( (char *)self );