Artifact 5eaed797ed2ef622cf5aaca6db61a4fcc9a11835:
- File sdl2/mouse-functions.ss — part of check-in [b358a80757] at 2016-09-04 14:50:46 on branch trunk — added missing file changes (user: aldo size: 1636)
0000: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 0010: 20 28 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 (* sdl-window-t 0020: 29 20 73 64 6c 2d 67 65 74 2d 6d 6f 75 73 65 2d ) sdl-get-mouse- 0030: 66 6f 63 75 73 20 28 29 20 22 53 44 4c 5f 47 65 focus () "SDL_Ge 0040: 74 4d 6f 75 73 65 46 6f 63 75 73 22 29 0a 28 64 tMouseFocus").(d 0050: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 75 efine-sdl-func u 0060: 69 6e 74 33 32 20 73 64 6c 2d 67 65 74 2d 6d 6f int32 sdl-get-mo 0070: 75 73 65 2d 73 74 61 74 65 20 28 28 78 20 28 2a use-state ((x (* 0080: 20 69 6e 74 29 29 20 28 79 20 28 2a 20 69 6e 74 int)) (y (* int 0090: 29 29 29 20 22 53 44 4c 5f 47 65 74 4d 6f 75 73 ))) "SDL_GetMous 00a0: 65 53 74 61 74 65 22 29 0a 28 64 65 66 69 6e 65 eState").(define 00b0: 2d 73 64 6c 2d 66 75 6e 63 20 75 69 6e 74 33 32 -sdl-func uint32 00c0: 20 73 64 6c 2d 67 65 74 2d 67 6c 6f 62 61 6c 2d sdl-get-global- 00d0: 6d 6f 75 73 65 2d 73 74 61 74 65 20 28 28 78 20 mouse-state ((x 00e0: 28 2a 20 69 6e 74 29 29 20 28 79 20 28 2a 20 69 (* int)) (y (* i 00f0: 6e 74 29 29 29 20 22 53 44 4c 5f 47 65 74 47 6c nt))) "SDL_GetGl 0100: 6f 62 61 6c 4d 6f 75 73 65 53 74 61 74 65 22 29 obalMouseState") 0110: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e .(define-sdl-fun 0120: 63 20 75 69 6e 74 33 32 20 73 64 6c 2d 67 65 74 c uint32 sdl-get 0130: 2d 72 65 6c 61 74 69 76 65 2d 6d 6f 75 73 65 2d -relative-mouse- 0140: 73 74 61 74 65 20 28 28 78 20 28 2a 20 69 6e 74 state ((x (* int 0150: 29 29 20 28 79 20 28 2a 20 69 6e 74 29 29 29 20 )) (y (* int))) 0160: 22 53 44 4c 5f 47 65 74 52 65 6c 61 74 69 76 65 "SDL_GetRelative 0170: 4d 6f 75 73 65 53 74 61 74 65 22 29 0a 28 64 65 MouseState").(de 0180: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f fine-sdl-func vo 0190: 69 64 20 73 64 6c 2d 77 61 72 70 2d 6d 6f 75 73 id sdl-warp-mous 01a0: 65 2d 69 6e 2d 77 69 6e 64 6f 77 20 28 28 77 69 e-in-window ((wi 01b0: 6e 64 6f 77 20 28 2a 20 73 64 6c 2d 77 69 6e 64 ndow (* sdl-wind 01c0: 6f 77 2d 74 29 29 20 28 78 20 69 6e 74 29 20 28 ow-t)) (x int) ( 01d0: 79 20 69 6e 74 29 29 20 22 53 44 4c 5f 57 61 72 y int)) "SDL_War 01e0: 70 4d 6f 75 73 65 49 6e 57 69 6e 64 6f 77 22 29 pMouseInWindow") 01f0: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e .(define-sdl-fun 0200: 63 20 69 6e 74 20 73 64 6c 2d 77 61 72 70 2d 6d c int sdl-warp-m 0210: 6f 75 73 65 2d 67 6c 6f 62 61 6c 20 28 28 78 20 ouse-global ((x 0220: 69 6e 74 29 20 28 79 20 69 6e 74 29 29 20 22 53 int) (y int)) "S 0230: 44 4c 5f 57 61 72 70 4d 6f 75 73 65 47 6c 6f 62 DL_WarpMouseGlob 0240: 61 6c 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c al").(define-sdl 0250: 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 73 65 -func int sdl-se 0260: 74 2d 72 65 6c 61 74 69 76 65 2d 6d 6f 75 73 65 t-relative-mouse 0270: 2d 6d 6f 64 65 20 28 28 65 6e 61 62 6c 65 64 20 -mode ((enabled 0280: 73 64 6c 2d 62 6f 6f 6c 2d 74 29 29 20 22 53 44 sdl-bool-t)) "SD 0290: 4c 5f 53 65 74 52 65 6c 61 74 69 76 65 4d 6f 75 L_SetRelativeMou 02a0: 73 65 4d 6f 64 65 22 29 0a 28 64 65 66 69 6e 65 seMode").(define 02b0: 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 -sdl-func int sd 02c0: 6c 2d 63 61 70 74 75 72 65 2d 6d 6f 75 73 65 20 l-capture-mouse 02d0: 28 28 65 6e 61 62 6c 65 64 20 73 64 6c 2d 62 6f ((enabled sdl-bo 02e0: 6f 6c 2d 74 29 29 20 22 53 44 4c 5f 43 61 70 74 ol-t)) "SDL_Capt 02f0: 75 72 65 4d 6f 75 73 65 22 29 0a 28 64 65 66 69 ureMouse").(defi 0300: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 64 6c 2d ne-sdl-func sdl- 0310: 62 6f 6f 6c 2d 74 20 73 64 6c 2d 67 65 74 2d 72 bool-t sdl-get-r 0320: 65 6c 61 74 69 76 65 2d 6d 6f 75 73 65 2d 6d 6f elative-mouse-mo 0330: 64 65 20 28 29 20 22 53 44 4c 5f 47 65 74 52 65 de () "SDL_GetRe 0340: 6c 61 74 69 76 65 4d 6f 75 73 65 4d 6f 64 65 22 lativeMouseMode" 0350: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu 0360: 6e 63 20 28 2a 20 73 64 6c 2d 63 75 72 73 6f 72 nc (* sdl-cursor 0370: 2d 74 29 20 73 64 6c 2d 63 72 65 61 74 65 2d 63 -t) sdl-create-c 0380: 75 72 73 6f 72 20 28 28 64 61 74 61 20 28 2a 20 ursor ((data (* 0390: 75 69 6e 74 38 29 29 20 28 6d 61 73 6b 20 28 2a uint8)) (mask (* 03a0: 20 75 69 6e 74 38 29 29 20 28 77 20 69 6e 74 29 uint8)) (w int) 03b0: 20 28 68 20 69 6e 74 29 20 28 68 6f 74 5f 78 20 (h int) (hot_x 03c0: 69 6e 74 29 20 28 68 6f 74 5f 79 20 69 6e 74 29 int) (hot_y int) 03d0: 29 20 22 53 44 4c 5f 43 72 65 61 74 65 43 75 72 ) "SDL_CreateCur 03e0: 73 6f 72 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 sor").(define-sd 03f0: 6c 2d 66 75 6e 63 20 28 2a 20 73 64 6c 2d 63 75 l-func (* sdl-cu 0400: 72 73 6f 72 2d 74 29 20 73 64 6c 2d 63 72 65 61 rsor-t) sdl-crea 0410: 74 65 2d 63 6f 6c 6f 72 2d 63 75 72 73 6f 72 20 te-color-cursor 0420: 28 28 73 75 72 66 61 63 65 20 28 2a 20 73 64 6c ((surface (* sdl 0430: 2d 73 75 72 66 61 63 65 2d 74 29 29 20 28 68 6f -surface-t)) (ho 0440: 74 5f 78 20 69 6e 74 29 20 28 68 6f 74 5f 79 20 t_x int) (hot_y 0450: 69 6e 74 29 29 20 22 53 44 4c 5f 43 72 65 61 74 int)) "SDL_Creat 0460: 65 43 6f 6c 6f 72 43 75 72 73 6f 72 22 29 0a 28 eColorCursor").( 0470: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 0480: 28 2a 20 73 64 6c 2d 63 75 72 73 6f 72 2d 74 29 (* sdl-cursor-t) 0490: 20 73 64 6c 2d 63 72 65 61 74 65 2d 73 79 73 74 sdl-create-syst 04a0: 65 6d 2d 63 75 72 73 6f 72 20 28 28 69 64 20 73 em-cursor ((id s 04b0: 64 6c 2d 73 79 73 74 65 6d 2d 63 75 72 73 6f 72 dl-system-cursor 04c0: 2d 74 29 29 20 22 53 44 4c 5f 43 72 65 61 74 65 -t)) "SDL_Create 04d0: 53 79 73 74 65 6d 43 75 72 73 6f 72 22 29 0a 28 SystemCursor").( 04e0: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 04f0: 76 6f 69 64 20 73 64 6c 2d 73 65 74 2d 63 75 72 void sdl-set-cur 0500: 73 6f 72 20 28 28 63 75 72 73 6f 72 20 28 2a 20 sor ((cursor (* 0510: 73 64 6c 2d 63 75 72 73 6f 72 2d 74 29 29 29 20 sdl-cursor-t))) 0520: 22 53 44 4c 5f 53 65 74 43 75 72 73 6f 72 22 29 "SDL_SetCursor") 0530: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e .(define-sdl-fun 0540: 63 20 28 2a 20 73 64 6c 2d 63 75 72 73 6f 72 2d c (* sdl-cursor- 0550: 74 29 20 73 64 6c 2d 67 65 74 2d 63 75 72 73 6f t) sdl-get-curso 0560: 72 20 28 29 20 22 53 44 4c 5f 47 65 74 43 75 72 r () "SDL_GetCur 0570: 73 6f 72 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 sor").(define-sd 0580: 6c 2d 66 75 6e 63 20 28 2a 20 73 64 6c 2d 63 75 l-func (* sdl-cu 0590: 72 73 6f 72 2d 74 29 20 73 64 6c 2d 67 65 74 2d rsor-t) sdl-get- 05a0: 64 65 66 61 75 6c 74 2d 63 75 72 73 6f 72 20 28 default-cursor ( 05b0: 29 20 22 53 44 4c 5f 47 65 74 44 65 66 61 75 6c ) "SDL_GetDefaul 05c0: 74 43 75 72 73 6f 72 22 29 0a 28 64 65 66 69 6e tCursor").(defin 05d0: 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 e-sdl-func void 05e0: 73 64 6c 2d 66 72 65 65 2d 63 75 72 73 6f 72 20 sdl-free-cursor 05f0: 28 28 63 75 72 73 6f 72 20 28 2a 20 73 64 6c 2d ((cursor (* sdl- 0600: 63 75 72 73 6f 72 2d 74 29 29 29 20 22 53 44 4c cursor-t))) "SDL 0610: 5f 46 72 65 65 43 75 72 73 6f 72 22 29 0a 28 64 _FreeCursor").(d 0620: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 efine-sdl-func i 0630: 6e 74 20 73 64 6c 2d 73 68 6f 77 2d 63 75 72 73 nt sdl-show-curs 0640: 6f 72 20 28 28 74 6f 67 67 6c 65 20 69 6e 74 29 or ((toggle int) 0650: 29 20 22 53 44 4c 5f 53 68 6f 77 43 75 72 73 6f ) "SDL_ShowCurso 0660: 72 22 29 0a r").