/src/Core/Mouse.xs
http://github.com/PerlGameDev/SDL · Unknown · 45 lines · 35 code · 10 blank · 0 comment · 0 complexity · 5eb531dbab16d8ff8a554bd2cc320481 MD5 · raw file
- #include "EXTERN.h"
- #include "perl.h"
- #include "XSUB.h"
- #include "ppport.h"
- #ifndef aTHX_
- #define aTHX_
- #endif
- #include <SDL.h>
- MODULE = SDL::Mouse PACKAGE = SDL::Mouse PREFIX = mouse_
- void
- mouse_warp_mouse ( x, y )
- Uint16 x
- Uint16 y
- CODE:
- SDL_WarpMouse(x,y);
- void
- mouse_set_cursor ( cursor )
- SDL_Cursor *cursor
- CODE:
- SDL_SetCursor(cursor);
- SDL_Cursor *
- mouse_get_cursor ()
- PREINIT:
- char* CLASS = "SDL::Cursor";
- CODE:
- RETVAL = SDL_GetCursor();
- OUTPUT:
- RETVAL
- int
- mouse_show_cursor ( toggle )
- int toggle
- CODE:
- RETVAL = SDL_ShowCursor(toggle);
- OUTPUT:
- RETVAL