fixed PRs 7783 7785

svn: r1731

original commit: 00d989a80a77036e5acface1595665984c2b114a

collects/framework/private/scheme.ss

@@ -162,7 +162,8 @@
       
       ;; split/collapse-text : (instanceof menu%) (instanceof editor<%>) (instanceof mouse-event%) -> void
       (define (split/collapse-text menu text event)
-        (when (is-a? text -text<%>)
+        (when (and (is-a? text -text<%>)
+                   (not (send text is-frozen?)))
           (let* ([on-it-box (box #f)]
                  [click-pos 
                   (call-with-values

collects/framework/private/text.ss

@@ -1434,7 +1434,9 @@ WARNING: printf is rebound in the body of the unit to always
                                                  (make-write-special-proc value-style)))
               (let ([install-handlers
                      (λ (port)
-                       (set-interactive-print-handler port)
+                       ;; don't want to set the port-print-handler here; 
+                       ;; instead drscheme sets the global-port-print-handler
+                       ;; to catch fractions and the like
                        (set-interactive-write-handler port)
                        (set-interactive-display-handler port))])
                 (install-handlers out-port)

collects/mrlib/interactive-value-port.ss

@@ -29,9 +29,9 @@
   
   (define (set-interactive-print-handler port)
     (port-print-handler
-     port
-     (λ (val port)
-       (do-printing pretty-print val port))))
+      port
+      (λ (val port)
+        (do-printing pretty-print val port))))
             
   (define (use-number-snip? x)
     (and #f