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

escape no longer quits during splash screen, not control-q does

Browse Source 
svn: r17869
This commit is contained in:
Robby Findler 2010-01-28 20:34:07 +00:00
parent b5cada4811
commit 076d680faa
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drscheme/private/drscheme-normal.ss
View File

@ -78,7 +78,9 @@
(set-splash-char-observer (set-splash-char-observer
(λ (evt) (λ (evt)
(let ([ch (send evt get-key-code)]) (let ([ch (send evt get-key-code)])
(when (equal? ch 'escape) (exit)) (when (and (eq? ch #\q)
(send evt get-control-down))
(exit))
(when (char? ch) (when (char? ch)
;; as soon as something is typed, load the bitmaps ;; as soon as something is typed, load the bitmaps
(load-magic-images) (load-magic-images)