diff options
| -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) |