diff options
| author | David Thompson <dthompson2@worcester.edu> | 2021-05-13 09:48:25 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2021-05-13 09:49:01 -0400 |
| commit | 10fb8d3daebf8bfea4ee82c29f085adaf899073f (patch) | |
| tree | a0132951213253c4d56cf7f1f60a7ffc20755a01 /sdl2/bindings.scm | |
| parent | c8ea056292b1f6b1efc021525fd1b378f87877fe (diff) | |
input: mouse: Add bindings for showing/hiding/moving the mouse cursor.
Diffstat (limited to 'sdl2/bindings.scm')
| -rw-r--r-- | sdl2/bindings.scm | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index 4deb900..8d85c63 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -1,5 +1,5 @@ ;;; guile-sdl2 --- FFI bindings for SDL2 -;;; Copyright © 2015, 2016 David Thompson <davet@gnu.org> +;;; Copyright © 2015, 2016, 2021 David Thompson <dthompson2@worcester.edu> ;;; Copyright © 2018 Eero Leno <eero@leno.fi> ;;; Copyright © 2019 Pierre-Antoine Rouby <contact@parouby.fr> ;;; @@ -380,6 +380,11 @@ RETURN-TYPE and accept arguments of ARG-TYPES." ;;; Events ;;; +(define-public SDL_QUERY -1) +(define-public SDL_IGNORE 0) +(define-public SDL_DISABLE 0) +(define-public SDL_ENABLE 1) + (define-public SDL_QUIT #x100) (define-public SDL_APP_TERMINATING #x101) (define-public SDL_APP_LOWMEMORY #x102) @@ -1002,6 +1007,15 @@ RETURN-TYPE and accept arguments of ARG-TYPES." (define-foreign sdl-get-mouse-state uint32 "SDL_GetMouseState" '(* *)) +(define-foreign sdl-show-cursor + int "SDL_ShowCursor" (list int)) + +(define-foreign sdl-warp-mouse-in-window + void "SDL_WarpMouseInWindow" (list '* int int)) + +(define-foreign sdl-warp-mouse-global + int "SDL_WarpMouseGlobal" (list int int)) + ;;; ;;; Timer |