...

original commit: b1ad1f6a5c5d52e47f93f50b8c4abf1110f16400

collects/framework/editor.ss

@@ -25,13 +25,13 @@
   (define basic-mixin
     (mixin (editor<%>) (basic<%>) args
 
-      (inherit copy-self-to)
-      (override
-       [copy-self
-	(lambda ()
-	  (let ([editor (make-object (object-class this))])
-	    (copy-self-to editor)
-	    editor))])
+;      (inherit copy-self-to)
+;     (override
+;      [copy-self
+;	(lambda ()
+;	  (let ([editor (make-object (object-class this))])
+;	   (copy-self-to editor)
+;	    editor))])
 	   
       (inherit get-filename save-file
 	       refresh-delayed? 

collects/framework/frameworks.ss

@@ -21,6 +21,8 @@
 (define-signature framework:panel^
   (single-mixin
    single<%>
+   single-window<%>
+   single-window-mixin
    single%
    single-pane%
    

collects/framework/text.ss

@@ -307,14 +307,13 @@
     (mixin (editor:keymap<%> basic<%>) (searching<%>) args
 	   (inherit get-end-position get-start-position last-position 
 		    find-string get-snip-position get-admin find-snip)
-	   (rename [super-on-new-box on-new-box])
-	   (override
-	    [on-new-box
-	     (lambda (type)
-	       (if (eq? type 'text)
-		   (make-object editor-snip% (make-object searching%))
-		   (super-on-new-box)))])
-	   (public)
+	   ;(rename [super-on-new-box on-new-box])
+	   ;(override
+	   ; [on-new-box
+	   ;  (lambda (type)
+	   ;    (if (eq? type 'text)
+	;	   (make-object editor-snip% (make-object searching%))
+	;	   (super-on-new-box)))])
 	   
 	   (rename [super-get-keymaps get-keymaps])
 	   (override