fixed PR 7786

svn: r1732
2005-12-31 14:32:54 +00:00 · 2005-12-31 14:32:54 +00:00 · f1904d29c1
commit f1904d29c1
parent 00d989a80a
1 changed files with 2 additions and 1 deletions
--- 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