From fdbeb099e03cc1bcb045c476eae59abd0e8ba7d5 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 20 Aug 2002 19:28:44 +0000
Subject: [PATCH] .

original commit: 76ea393621c623dc101eabf89ea0d36712c0fd33
---
 collects/mred/mred.ss           | 6 ++++--
 collects/mred/private/kernel.ss | 6 ++----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index fdba646b..98ee40c8 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -1849,8 +1849,9 @@
     (public
       [-format-filter (lambda (f) f)]
       [-set-file-format (lambda (f) (void))]
-      [-get-file-format (lambda () 'standard)]
+      [-get-file-format (lambda () 'standard)])
 
+    (override
       [insert-file
        (opt-lambda ([file #f] [format 'guess] [show-errors? #t])
 	 (dynamic-wind
@@ -1907,8 +1908,9 @@
 		      (lambda ()
 			(after-load-file finished?)
 			;; In case it wasn't closed before:
-			(close-input-port port)))))))))]
+			(close-input-port port)))))))))])
 
+    (public
       [get-canvases (entry-point (lambda () (map wx->mred canvases)))]
       [get-active-canvas (entry-point (lambda () (and active-canvas (wx->mred active-canvas))))]
       [get-canvas
diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss
index a578bf8d..6d4f1748 100644
--- a/collects/mred/private/kernel.ss
+++ b/collects/mred/private/kernel.ss
@@ -217,6 +217,8 @@
     get-space
     get-descent
     get-extent
+    insert-file
+    load-file
     insert-port
     save-file
     get-flattened-text
@@ -903,7 +905,6 @@
     set-clipboard-bitmap
     get-clipboard-data
     get-clipboard-string
-    get-clipboard-client
     set-clipboard-string
     set-clipboard-client)
   (define-function get-the-clipboard)
@@ -958,9 +959,6 @@
     after-select
     on-select
     can-select?
-    after-reorder
-    on-reorder
-    can-reorder?
     after-resize
     on-resize
     can-resize?