diff options
| author | David Thompson <dthompson2@worcester.edu> | 2021-05-13 08:50:50 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2021-05-13 08:50:50 -0400 |
| commit | 4e821211403cf6c1b144f66df3a8204d4c5bc60d (patch) | |
| tree | 55f3e9adffd277107c91767bb1b22ae73c908bd1 | |
| parent | b83ae58aa8920367cda3a7a992b594e8162c63d0 (diff) | |
bindings: Add SDL_MOUSEWHEEL_* constants.
| -rw-r--r-- | sdl2/bindings.scm | 3 |
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))) |