/src/Core/Mouse.xs

http://github.com/PerlGameDev/SDL · Unknown · 45 lines · 35 code · 10 blank · 0 comment · 0 complexity · 5eb531dbab16d8ff8a554bd2cc320481 MD5 · raw file 

    

  1. #include "EXTERN.h"
    2. 

  2. #include "perl.h"
    3. 

  3. #include "XSUB.h"
    4. 

  4. #include "ppport.h"
    5. 

  5. 

  6. #ifndef aTHX_
    7. 

  7. #define aTHX_
    8. 

  8. #endif
    9. 

  9. 

  10. #include <SDL.h>
    11. 

  11. 

  12. MODULE = SDL::Mouse 	PACKAGE = SDL::Mouse    PREFIX = mouse_
    13. 

  13. 

  14. void
    15. 

  15. mouse_warp_mouse ( x, y )
    16. 

  16. 	Uint16 x
    17. 

  17. 	Uint16 y
    18. 

  18. 	CODE:
    19. 

  19. 		SDL_WarpMouse(x,y);
    20. 

  20. 

  21. void
    22. 

  22. mouse_set_cursor ( cursor )
    23. 

  23. 	SDL_Cursor *cursor
    24. 

  24. 	CODE:
    25. 

  25. 		SDL_SetCursor(cursor);
    26. 

  26. 

  27. SDL_Cursor *
    28. 

  28. mouse_get_cursor ()
    29. 

  29. 	PREINIT:
    30. 

  30. 	char* CLASS = "SDL::Cursor";
    31. 

  31. 	CODE:
    32. 

  32. 	RETVAL = SDL_GetCursor();
    33. 

  33. 	OUTPUT:
    34. 

  34. 		RETVAL
    35. 

  35. 

  36. int
    37. 

  37. mouse_show_cursor ( toggle )
    38. 

  38. 	int toggle
    39. 

  39. 	CODE:
    40. 

  40. 		RETVAL = SDL_ShowCursor(toggle);
    41. 

  41. 	OUTPUT: 
    42. 

  42. 		RETVAL
    43.