diff options
author | David Thompson <dthompson2@worcester.edu> | 2022-10-01 21:30:42 -0400 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2022-10-01 21:30:42 -0400 |
commit | 4811db26a9142ac587649cfa325e0bfc5b9f761e (patch) | |
tree | 6373639ccf2d3c77027bd7a6f7a6f8ace260d5d6 | |
parent | 7508e7592883c49a5a0672d4fd9d9ae69c0b1ab0 (diff) |
events: Support additional controller buttons.
-rw-r--r-- | sdl2/events.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/sdl2/events.scm b/sdl2/events.scm index 10a6ee1..b019ad4 100644 --- a/sdl2/events.scm +++ b/sdl2/events.scm @@ -1230,7 +1230,14 @@ ((= button ffi:SDL_CONTROLLER_BUTTON_DPAD_UP) 'dpad-up) ((= button ffi:SDL_CONTROLLER_BUTTON_DPAD_DOWN) 'dpad-down) ((= button ffi:SDL_CONTROLLER_BUTTON_DPAD_LEFT) 'dpad-left) - ((= button ffi:SDL_CONTROLLER_BUTTON_DPAD_RIGHT) 'dpad-right))) + ((= button ffi:SDL_CONTROLLER_BUTTON_DPAD_RIGHT) 'dpad-right) + ((= button ffi:SDL_CONTROLLER_BUTTON_MISC1) 'misc-1) + ((= button ffi:SDL_CONTROLLER_BUTTON_PADDLE1) 'paddle-1) + ((= button ffi:SDL_CONTROLLER_BUTTON_PADDLE2) 'paddle-2) + ((= button ffi:SDL_CONTROLLER_BUTTON_PADDLE3) 'paddle-3) + ((= button ffi:SDL_CONTROLLER_BUTTON_PADDLE4) 'paddle-4) + ((= button ffi:SDL_CONTROLLER_BUTTON_TOUCHPAD) 'touch-pad) + (else 'unknown))) (match (parse-c-struct ptr types) ((_ timestamp which button state) |