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

hide control-alt keybindings under windows

Browse Source 
svn: r7009

original commit: db9963ed69bad311ef1958159a7dbcb09493f376
This commit is contained in:
Robby Findler 2007-08-03 06:59:26 +00:00
parent ded3fd08be
commit c5cf3fb05a
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,8 +7,7 @@
(lib "match.ss") (lib "match.ss")
"../preferences.ss" "../preferences.ss"
"sig.ss") "sig.ss")
(import mred^ (import mred^
[prefix finder: framework:finder^] [prefix finder: framework:finder^]
[prefix handler: framework:handler^] [prefix handler: framework:handler^]
@ -129,7 +128,14 @@
function-table function-table
(λ (keyname fname) (λ (keyname fname)
(unless (hash-table-get table keyname (λ () #f)) (unless (hash-table-get table keyname (λ () #f))
(hash-table-put! table keyname fname)))) (cond
[(and (eq? (system-type) 'windows)
(or (regexp-match #rx"a:c" keyname)
(regexp-match #rx"c:m" keyname)))
(void) ;; don't show these keybindigns -- they don't work
]
[else
(hash-table-put! table keyname fname)]))))
(for-each (for-each
(λ (chained-keymap) (λ (chained-keymap)
(when (is-a? chained-keymap aug-keymap<%>) (when (is-a? chained-keymap aug-keymap<%>)