From 4811db26a9142ac587649cfa325e0bfc5b9f761e Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 1 Oct 2022 21:30:42 -0400 Subject: events: Support additional controller buttons. --- sdl2/events.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'sdl2') 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) -- cgit v1.2.3