From 4ed12b3ae6a6064fa277c330882c955fc5d1c8b2 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 1 May 2008 02:51:52 +0000
Subject: [PATCH] moved the surrogate library to scheme/ (out of mzlib/)

svn: r9554

original commit: baa9ed726a8943cb496cc13f45e2cd85d4a825f3
---
 collects/framework/private/mode.ss | 98 +++++++++++++++---------------
 1 file changed, 49 insertions(+), 49 deletions(-)

diff --git a/collects/framework/private/mode.ss b/collects/framework/private/mode.ss
index 6f70d790..9b51226a 100644
--- a/collects/framework/private/mode.ss
+++ b/collects/framework/private/mode.ss
@@ -1,50 +1,50 @@
 #lang scheme/unit
-  (require mzlib/surrogate
-           mzlib/class
-           "sig.ss")
-  
-  (import)
-  (export framework:mode^)
-  
-  (define-values (host-text-mixin host-text<%> surrogate-text% surrogate-text<%>)
-    (surrogate
-     (augment (void) on-change ())
-     (override on-char (event))
-     (override on-default-char (event))
-     (override on-default-event (event))
-     (augment (void) on-display-size ())
-     (augment (void) on-edit-sequence ())
-     (override on-event (event))
-     (override on-focus (on?))
-     (augment (void) on-load-file (filename format))
-     (override on-local-char (event))
-     (override on-local-event (event))
-     (override on-new-box (type))
-     (override on-new-image-snip (filename kind relative-path? inline?))
-     (override on-paint (before? dc left top right bottom dx dy draw-caret))
-     (augment (void) on-save-file (filename format))
-     (augment (void) on-snip-modified (snip modified?))
-     
-     (augment (void) on-change-style (start len))
-     (augment (void) on-delete (start len))
-     (augment (void) on-insert (start len))
-     (override on-new-string-snip ())
-     (override on-new-tab-snip ())
-     (augment (void) on-set-size-constraint ())
-     
-     (augment (void) after-change-style (start len))
-     (augment (void) after-delete (start len))
-     (augment (void) after-insert (start len))
-     (augment (void) after-set-position ())
-     (augment (void) after-set-size-constraint ())
-     (augment (void) after-edit-sequence ())
-     (augment (void) after-load-file (success?))
-     (augment (void) after-save-file (success?))
-     
-     (augment #t can-change-style? (start len))
-     (augment #t can-delete? (start len))
-     (augment #t can-insert? (start len))
-     (augment #t can-set-size-constraint? ())
-     (override can-do-edit-operation? (op) (op recursive?))
-     (augment #t can-load-file? (filename format))
-     (augment #t can-save-file? (filename format))))
+(require scheme/class
+         scheme/surrogate
+         "sig.ss")
+
+(import)
+(export framework:mode^)
+
+(define-values (host-text-mixin host-text<%> surrogate-text% surrogate-text<%>)
+  (surrogate
+   (augment (void) on-change ())
+   (override on-char (event))
+   (override on-default-char (event))
+   (override on-default-event (event))
+   (augment (void) on-display-size ())
+   (augment (void) on-edit-sequence ())
+   (override on-event (event))
+   (override on-focus (on?))
+   (augment (void) on-load-file (filename format))
+   (override on-local-char (event))
+   (override on-local-event (event))
+   (override on-new-box (type))
+   (override on-new-image-snip (filename kind relative-path? inline?))
+   (override on-paint (before? dc left top right bottom dx dy draw-caret))
+   (augment (void) on-save-file (filename format))
+   (augment (void) on-snip-modified (snip modified?))
+   
+   (augment (void) on-change-style (start len))
+   (augment (void) on-delete (start len))
+   (augment (void) on-insert (start len))
+   (override on-new-string-snip ())
+   (override on-new-tab-snip ())
+   (augment (void) on-set-size-constraint ())
+   
+   (augment (void) after-change-style (start len))
+   (augment (void) after-delete (start len))
+   (augment (void) after-insert (start len))
+   (augment (void) after-set-position ())
+   (augment (void) after-set-size-constraint ())
+   (augment (void) after-edit-sequence ())
+   (augment (void) after-load-file (success?))
+   (augment (void) after-save-file (success?))
+   
+   (augment #t can-change-style? (start len))
+   (augment #t can-delete? (start len))
+   (augment #t can-insert? (start len))
+   (augment #t can-set-size-constraint? ())
+   (override can-do-edit-operation? (op) (op recursive?))
+   (augment #t can-load-file? (filename format))
+   (augment #t can-save-file? (filename format))))