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