Nulo/menelaus
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Don't crash when seven keys are pressed.

Browse source
This commit is contained in:
Phil Hagelberg 2019-07-06 17:03:35 -07:00
parent a059395642
commit 5cfcb4324b
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
menelaus.scm
View file

@ -154,8 +154,8 @@
(define (press-normal-key keycode key) (define (press-normal-key keycode key)
(let ((slot (find keycodes-down 0))) (let ((slot (find keycodes-down 0)))
(vector-set! keycodes-down slot keycode) (and slot (vector-set! keycodes-down slot keycode))
(vector-set! keys-for-frame slot key))) (and slot (vector-set! keys-for-frame slot key))))
(define (press-key key) (define (press-key key)
(let ((keycode (lookup key))) (let ((keycode (lookup key)))

2
test.rkt
View file

@ -92,6 +92,8 @@
((40) . (())) ((40) . (()))
;; base layer key ;; base layer key
((2) . (() ,key-e)) ((2) . (() ,key-e))
;; seven keys down
((1 2 3 4 7 8 9) . (() ,key-e ,key-w ,key-r ,key-t ,key-u ,key-i))
;; shift combo and shift key simultaneously ;; shift combo and shift key simultaneously
((40) . (())) ((40) . (()))
((40 1 36) . ((shift) ,key-2)) ((40 1 36) . ((shift) ,key-2))