summaryrefslogtreecommitdiff
path: root/sdl2/bindings.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2021-05-13 08:50:50 -0400
committerDavid Thompson <dthompson2@worcester.edu>2021-05-13 08:50:50 -0400
commit4e821211403cf6c1b144f66df3a8204d4c5bc60d (patch)
tree55f3e9adffd277107c91767bb1b22ae73c908bd1 /sdl2/bindings.scm
parentb83ae58aa8920367cda3a7a992b594e8162c63d0 (diff)
bindings: Add SDL_MOUSEWHEEL_* constants.
Diffstat (limited to 'sdl2/bindings.scm')
-rw-r--r--sdl2/bindings.scm3
1 files changed, 3 insertions, 0 deletions
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)))