catch esc to close the about frame

2010-08-18 07:11:54 -05:00 · 2010-08-18 07:11:54 -05:00 · fd109558de
commit fd109558de
parent fc2ed3f8c6
1 changed files with 7 additions and 0 deletions
--- a/collects/drracket/private/app.rkt
+++ b/collects/drracket/private/app.rkt
@ -19,6 +19,13 @@
 (define about-frame%
  (class (drracket:frame:basics-mixin (frame:standard-menus-mixin frame:basic%))
    (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)
      (send main-text do-edit-operation const))
    [define/override file-menu:create-revert? (λ () #f)]