From fd109558def98e006b65019f6908850de9e0b462 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 18 Aug 2010 07:11:54 -0500
Subject: [PATCH] catch esc to close the about frame

---
 collects/drracket/private/app.rkt | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/collects/drracket/private/app.rkt b/collects/drracket/private/app.rkt
index 566d187200..5ec857a585 100644
--- 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)]