/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. #include "perl.h"
  3. #include "XSUB.h"
  4. #include "ppport.h"
  5. #ifndef aTHX_
  6. #define aTHX_
  7. #endif
  8. #include <SDL.h>
  9. MODULE = SDL::Mouse PACKAGE = SDL::Mouse PREFIX = mouse_
  10. void
  11. mouse_warp_mouse ( x, y )
  12. Uint16 x
  13. Uint16 y
  14. CODE:
  15. SDL_WarpMouse(x,y);
  16. void
  17. mouse_set_cursor ( cursor )
  18. SDL_Cursor *cursor
  19. CODE:
  20. SDL_SetCursor(cursor);
  21. SDL_Cursor *
  22. mouse_get_cursor ()
  23. PREINIT:
  24. char* CLASS = "SDL::Cursor";
  25. CODE:
  26. RETVAL = SDL_GetCursor();
  27. OUTPUT:
  28. RETVAL
  29. int
  30. mouse_show_cursor ( toggle )
  31. int toggle
  32. CODE:
  33. RETVAL = SDL_ShowCursor(toggle);
  34. OUTPUT:
  35. RETVAL