suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

expand showkeys display for 352.9

Browse Source 
svn: r4704
This commit is contained in:
Matthew Flatt 2006-10-30 01:19:46 +00:00
parent f88355b345
commit 22f8f9a50c
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/mred/showkey.ss
View File

@ -37,7 +37,7 @@
[on-char [on-char
(lambda (ev) (lambda (ev)
(set! iter (add1 iter)) (set! iter (add1 iter))
(printf "~a~a KEY: ~a\n rel-code: ~a\n other-code: ~a\n mods:~a~a~a~a~n" (printf "~a~a KEY: ~a\n rel-code: ~a\n other-codes: ~a\n mods:~a~a~a~a~n"
(es-check) (es-check)
iter iter
(let ([v (send ev get-key-code)]) (let ([v (send ev get-key-code)])
@ -48,11 +48,15 @@
(if (symbol? v) (if (symbol? v)
v v
(format "~s = ASCII ~a" (string v) (char->integer v)))) (format "~s = ASCII ~a" (string v) (char->integer v))))
(let ([v (send ev get-other-shift-key-code)]) (let ([vs (list (send ev get-other-shift-key-code)
(send ev get-other-altgr-key-code)
(send ev get-other-shift-altgr-key-code))])
(map (lambda (v)
(and v (and v
(if (symbol? v) (if (symbol? v)
v v
(format "~s = ASCII ~a" (string v) (char->integer v))))) (format "~s = ASCII ~a" (string v) (char->integer v)))))
vs))
(if (send ev get-meta-down) " META" "") (if (send ev get-meta-down) " META" "")
(if (send ev get-control-down) " CTL" "") (if (send ev get-control-down) " CTL" "")
(if (send ev get-alt-down) " ALT" "") (if (send ev get-alt-down) " ALT" "")