From bb5df936e28d8594fbc29157c6846f6891075f47 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 24 Aug 2000 17:38:28 +0000
Subject: [PATCH] ...

original commit: 06778ce93ed44aa21a5777aa27f7f3c4ade4411e
---
 collects/framework/frame.ss | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss
index 3ef50976..e275dd39 100644
--- a/collects/framework/frame.ss
+++ b/collects/framework/frame.ss
@@ -305,7 +305,6 @@
             (update-memory-text)
 	    (set! memory-cleanup
 		  (lambda ()
-		    (send memory-text remove-canvas ec)
 		    (send ec set-editor #f)))
             (send panel stretchable-width #f))))
       (private
@@ -1150,6 +1149,11 @@
 	   (unless dont-search
 	     (search #f)))])))
 
+  ;; this is here for when editors are printed.
+  (define replace-text%
+    (class text:keymap% args
+      (sequence (apply super-init args))))
+
   (define find-edit #f)
   (define replace-edit #f)
 
@@ -1170,7 +1174,7 @@
   (define (init-find/replace-edits)
     (unless find-edit
       (set! find-edit (make-object find-text%))
-      (set! replace-edit (make-object text:keymap%))
+      (set! replace-edit (make-object replace-text%))
       (for-each (lambda (keymap)
 		  (send keymap chain-to-keymap
 			(keymap:get-search)
@@ -1247,7 +1251,6 @@
 	   (remove-callback)
 	   (let ([close-canvas
 		  (lambda (canvas edit)
-		    (send edit remove-canvas canvas)
 		    (send canvas set-editor #f))])
 	     (close-canvas find-canvas find-edit)
 	     (close-canvas replace-canvas replace-edit))
@@ -1398,11 +1401,11 @@
 		  (list middle-left-panel middle-middle-panel middle-right-panel))
 	(send find-canvas set-editor find-edit)
 	(send replace-canvas set-editor replace-edit) 
-	(send find-edit add-canvas find-canvas)
-	(send replace-edit add-canvas replace-canvas)
 	(hide-search #t))))
   
-  (define memory-text (make-object text%))
+  ;; to see printouts in memory debugging better.
+  (define memory-text% (class text% args (sequence (apply super-init args))))
+  (define memory-text (make-object memory-text%))
   (send memory-text hide-caret #t)
   (define show-memory-text? (directory-exists? (build-path (collection-path "framework") "CVS")))