possible fix for PR 8419

svn: r5044
This commit is contained in:
Robby Findler 2006-12-06 20:31:44 +00:00
parent 00574b6338
commit 216ac84f00

View File

@ -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