From d4c9b381d931835f930608db9563434f312dbf67 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 10 Nov 2017 14:56:50 -0500 Subject: Add binding for SDL_GetMouseState. No high-level wrapper yet, though. * sdl2/bindings.scm (sdl-get-mouse-state): New procedure. --- sdl2/bindings.scm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'sdl2') diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index 4644f1e..d333c59 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -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" '(* *)) ;;; -- cgit v1.2.3