Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

FROGGS / SDL-2.548 / src / Core / Mouse.xs 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

              
#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