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

bugfix

Browse Source 
svn: r7011

original commit: 81136382a0200191360e72c36d28499c42dfcfea
This commit is contained in:
Robby Findler 2007-08-03 07:50:21 +00:00
parent 95524eb053
commit a87d563e65
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/framework/private/keymap.ss
View File

@ -130,8 +130,9 @@
(unless (hash-table-get table keyname (λ () #f))
(cond
[(and (eq? (system-type) 'windows)
(or (regexp-match #rx"a:c" (format "~a" keyname))
(regexp-match #rx"c:m" (format "~a" keyname))))
(let ([cs (canonicalize-keybinding-string (format "~a" keyname))])
(or (regexp-match #rx"a:c" cs)
(regexp-match #rx"c:m" cs))))
(void) ;; don't show these keybindigns -- they don't work
]
[else
@ -226,7 +227,7 @@
(join-strings ":"
(filter
(λ (x) x)
values
(list
(do-key #\a alt)
(do-key #\c control)