.

original commit: 76ea393621c623dc101eabf89ea0d36712c0fd33

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

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?