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

fixed PR 8325

Browse Source 
svn: r4602
This commit is contained in:
Robby Findler 2006-10-14 17:07:18 +00:00
parent 58751057b6
commit ea15fcaf7f
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drscheme/private/frame.ss
View File

@ -201,7 +201,7 @@
this this
last-keybindings-planet-attempt)]) last-keybindings-planet-attempt)])
(when planet-spec (when planet-spec
(set! last-keybindings-planet-attempt planet-spec)) (set! last-keybindings-planet-attempt planet-spec)
(cond (cond
[(planet-string-spec? planet-spec) [(planet-string-spec? planet-spec)
=> =>
@ -210,7 +210,7 @@
[else [else
(message-box (string-constant drscheme) (message-box (string-constant drscheme)
(format (string-constant keybindings-planet-malformed-spec) (format (string-constant keybindings-planet-malformed-spec)
planet-spec))]))))) planet-spec))]))))))
(let ([ud (preferences:get 'drscheme:user-defined-keybindings)]) (let ([ud (preferences:get 'drscheme:user-defined-keybindings)])
(unless (null? ud) (unless (null? ud)
(new separator-menu-item% (parent keybindings-menu)) (new separator-menu-item% (parent keybindings-menu))