Attempt to add gamepad support.

This commit is contained in:
David Thompson 2024-12-10 11:32:14 -05:00
parent 825fdbc372
commit 4a59f0df23
4 changed files with 83 additions and 2 deletions

View file

@ -25,7 +25,8 @@
#:export (add-event-listener!
remove-event-listener!
prevent-default!
keyboard-event-code))
keyboard-event-code
gamepad-event-gamepad))
;; EventTarget
(define-foreign add-event-listener!
@ -44,3 +45,8 @@
(define-foreign keyboard-event-code
"event" "keyboardCode"
(ref extern) -> (ref string))
;; GamepadEvent
(define-foreign gamepad-event-gamepad
"event" "gamepad"
(ref extern) -> (ref extern))