From 216ac84f00258966e5e4b7c608e7adc04587b27b Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 6 Dec 2006 20:31:44 +0000
Subject: [PATCH] possible fix for PR 8419

svn: r5044
---
 collects/framework/private/frame.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index 0c7d8caf15..6f82c20fd5 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -1354,7 +1354,8 @@
             (super on-event evt)
             (when delegate-frame
               (let ([text (get-editor)])
-                (when (is-a? text text%)
+                (when (and (is-a? text text%)
+                           (send delegate-frame delegated-text-shown?))
                   (cond
                     [(send evt button-down?)
                      (let-values ([(editor-x editor-y)
@@ -1382,7 +1383,7 @@
                             (send delegate-frame update-status-line 'plt:delegate #f)])))]
                     [(send evt leaving?)
                      (send delegate-frame update-status-line 'plt:delegate #f)])))))
-          (super-instantiate ())))
+          (super-new)))
       
       (define (at-most-200 s)
         (cond