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

catch esc to close the about frame

Browse Source
This commit is contained in:
Robby Findler 2010-08-18 07:11:54 -05:00
parent fc2ed3f8c6
commit fd109558de
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/drracket/private/app.rkt
View File

@ -19,6 +19,13 @@
(define about-frame% (define about-frame%
(class (drracket:frame:basics-mixin (frame:standard-menus-mixin frame:basic%)) (class (drracket:frame:basics-mixin (frame:standard-menus-mixin frame:basic%))
(init-field main-text) (init-field main-text)
(inherit close)
(define/override (on-subwindow-char receiver event)
(cond
[(equal? (send event get-key-code) 'escape)
(close)]
[else
(super on-subwindow-char receiver event)]))
(define/private (edit-menu:do const) (define/private (edit-menu:do const)
(send main-text do-edit-operation const)) (send main-text do-edit-operation const))
[define/override file-menu:create-revert? (λ () #f)] [define/override file-menu:create-revert? (λ () #f)]