From f1904d29c1238028e0954ebc76de70aeed0693a3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 31 Dec 2005 14:32:54 +0000 Subject: [PATCH] fixed PR 7786 svn: r1732 --- collects/framework/private/scheme.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss index 5c6e3ec9f9..29e0bf73f9 100644 --- a/collects/framework/private/scheme.ss +++ b/collects/framework/private/scheme.ss @@ -163,7 +163,8 @@ ;; split/collapse-text : (instanceof menu%) (instanceof editor<%>) (instanceof mouse-event%) -> void (define (split/collapse-text menu text event) (when (and (is-a? text -text<%>) - (not (send text is-frozen?))) + (not (send text is-frozen?)) + (not (send text is-stopped?))) (let* ([on-it-box (box #f)] [click-pos (call-with-values