From 22f8f9a50c91a3fb8ed8ee8bf0473dd407a77ec8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 30 Oct 2006 01:19:46 +0000 Subject: [PATCH] expand showkeys display for 352.9 svn: r4704 --- collects/tests/mred/showkey.ss | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/collects/tests/mred/showkey.ss b/collects/tests/mred/showkey.ss index 3c0a25a381..2b9cdf5794 100644 --- a/collects/tests/mred/showkey.ss +++ b/collects/tests/mred/showkey.ss @@ -37,7 +37,7 @@ [on-char (lambda (ev) (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) iter (let ([v (send ev get-key-code)]) @@ -48,11 +48,15 @@ (if (symbol? v) v (format "~s = ASCII ~a" (string v) (char->integer v)))) - (let ([v (send ev get-other-shift-key-code)]) - (and v - (if (symbol? v) - v - (format "~s = ASCII ~a" (string v) (char->integer v))))) + (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 + (if (symbol? v) + v + (format "~s = ASCII ~a" (string v) (char->integer v))))) + vs)) (if (send ev get-meta-down) " META" "") (if (send ev get-control-down) " CTL" "") (if (send ev get-alt-down) " ALT" "")