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

collects/drracket/private/rep.rkt

@@ -436,7 +436,6 @@ TODO
                insert-before
                insert-between
                invalidate-bitmap-cache
-               is-frozen?
                is-locked?
                last-position
                line-location

collects/drracket/private/unit.rkt

@@ -204,8 +204,7 @@ module browser threading seems wrong.
   (define (find-symbol text pos)
     (cond
       [(and (is-a? text scheme:text<%>)
-            (not (send text is-stopped?))
-            (not (send text is-frozen?)))
+            (not (send text is-stopped?)))
        (let* ([before (send text get-backward-sexp pos)]
               [before+ (and before (send text get-forward-sexp before))]
               [after (send text get-forward-sexp pos)]

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