From c5b91ae779bb8e3489e5eacd5cbc54eee605ca5d Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 27 Apr 1999 18:57:55 +0000
Subject: [PATCH] ...

original commit: b1ad1f6a5c5d52e47f93f50b8c4abf1110f16400
---
 collects/framework/editor.ss     | 14 +++++++-------
 collects/framework/frameworks.ss |  2 ++
 collects/framework/text.ss       | 15 +++++++--------
 3 files changed, 16 insertions(+), 15 deletions(-)

diff --git a/collects/framework/editor.ss b/collects/framework/editor.ss
index 52c977d4..162ba651 100644
--- a/collects/framework/editor.ss
+++ b/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? 
diff --git a/collects/framework/frameworks.ss b/collects/framework/frameworks.ss
index 2626b590..5177df2e 100644
--- a/collects/framework/frameworks.ss
+++ b/collects/framework/frameworks.ss
@@ -21,6 +21,8 @@
 (define-signature framework:panel^
   (single-mixin
    single<%>
+   single-window<%>
+   single-window-mixin
    single%
    single-pane%
    
diff --git a/collects/framework/text.ss b/collects/framework/text.ss
index 68486387..3afa017e 100644
--- a/collects/framework/text.ss
+++ b/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