From 10fb8d3daebf8bfea4ee82c29f085adaf899073f Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 13 May 2021 09:48:25 -0400
Subject: input: mouse: Add bindings for showing/hiding/moving the mouse
 cursor.

---
 sdl2/bindings.scm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'sdl2/bindings.scm')

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
-- 
cgit v1.2.3