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

change pref name to match docs

Browse Source 
original commit: 47e3db06ffe64ebb5521cf73c45eda439fd59d85
This commit is contained in:
John Clements 2011-01-02 14:45:14 -08:00
parent 1efce0f496
commit a8ff33af5e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/const.rkt
View File

@ -38,7 +38,7 @@
(define arrow-cursor (make-object wx:cursor% 'arrow)) (define arrow-cursor (make-object wx:cursor% 'arrow))
(define default-x-prefix (if (eq? 'unix (system-type)) (define default-x-prefix (if (eq? 'unix (system-type))
(let ([v (get-preference '|MrEd:defaultMenuPrefix| (lambda () 'ctl))]) (let ([v (get-preference '|GRacket:defaultMenuPrefix| (lambda () 'ctl))])
(if (memq v '(meta ctl alt ctl-m)) (if (memq v '(meta ctl alt ctl-m))
v v
'ctl)) 'ctl))