Add binding for SDL_GetMouseState.
authorDavid Thompson <dthompson@vistahigherlearning.com>
Fri, 10 Nov 2017 19:56:50 +0000 (14:56 -0500)
committerDavid Thompson <dthompson@vistahigherlearning.com>
Fri, 10 Nov 2017 19:56:50 +0000 (14:56 -0500)
No high-level wrapper yet, though.

* sdl2/bindings.scm (sdl-get-mouse-state): New procedure.

sdl2/bindings.scm

index 4644f1e..d333c59 100644 (file)
@@ -856,6 +856,8 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 (define-public SDL_BUTTON_X1MASK (button-mask SDL_BUTTON_X1))
 (define-public SDL_BUTTON_X2MASK (button-mask SDL_BUTTON_X2))
 
+(define-foreign sdl-get-mouse-state
+  uint32 "SDL_GetMouseState" '(* *))
 
 \f
 ;;;