From 2eb9dede6ae0c54200b26b01a145215546b3df4f Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 29 Nov 2011 09:22:11 -0600
Subject: [PATCH] change the framework & drracket so that they still use the
 colorer methods (paren matching, mostly) when the colorer is frozen (but
 continue to avoid using them when the colrer is stopped)

closes PR 12374

original commit: e935b1fa8e987a2867bb5ddb881d78cbdb23b98d
---
 collects/framework/private/scheme.rkt | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/collects/framework/private/scheme.rkt b/collects/framework/private/scheme.rkt
index 8698cff8..d175214e 100644
--- a/collects/framework/private/scheme.rkt
+++ b/collects/framework/private/scheme.rkt
@@ -169,7 +169,6 @@
 ;; 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-stopped?)))
     (let* ([on-it-box (box #f)]
            [click-pos 
@@ -427,7 +426,6 @@
              get-end-position
              flash-on
              insert
-             is-frozen?
              is-stopped?
              kill
              last-position
@@ -457,7 +455,7 @@
     (define/override (get-word-at current-pos)
       (let ([no-word ""])
         (cond
-          [(or (is-stopped?) (is-frozen?))
+          [(is-stopped?)
            no-word]
           [else
            (let ([type (classify-position (max 0 (- current-pos 1)))])
@@ -493,7 +491,7 @@
     
     (define/public (tabify-on-return?) #t)
     (define/public (tabify [pos (get-start-position)])
-      (unless (or (is-stopped?) (is-frozen?))
+      (unless (is-stopped?)
       (let* ([tabify-prefs (preferences:get 'framework:tabify)]
              [last-pos (last-position)]
              [para (position-paragraph pos)]
@@ -701,7 +699,7 @@
     
     (define/public (tabify-selection [start-pos (get-start-position)]
                                      [end-pos (get-end-position)])
-      (unless (or (is-frozen?) (is-stopped?)) 
+      (unless (is-stopped?) 
         (define first-para (position-paragraph start-pos))
         (define end-para (position-paragraph end-pos))
         (with-handlers ([exn:break?
@@ -1419,7 +1417,6 @@
                      (λ (text)
                        (cond
                          [(or (not (preferences:get 'framework:fixup-open-parens))
-                              (send text is-frozen?)
                               (send text is-stopped?))
                           (maybe-insert-brace-pair text #\[ #\])]
                          [else