From 4e821211403cf6c1b144f66df3a8204d4c5bc60d Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 13 May 2021 08:50:50 -0400 Subject: bindings: Add SDL_MOUSEWHEEL_* constants. --- sdl2/bindings.scm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'sdl2') diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index 05d31fb..4deb900 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -987,6 +987,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES." (define-public SDL_BUTTON_X1 4) (define-public SDL_BUTTON_X2 5) +(define-public SDL_MOUSEWHEEL_NORMAL 0) +(define-public SDL_MOUSEWHEEL_FLIPPED 1) + (define (button-mask n) (ash 1 (1- n))) -- cgit v1.2.3