.

original commit: 61b090a13fc116b3910ce4503744a7db0dfcb62e

collects/mred/mred-sig.ss

@@ -121,6 +121,7 @@
      mouse-event%
      ;; mred@
      mult-color<%>
+     open-input-graphical-file
      open-input-text-editor
      pane%
      panel%

collects/mred/mred.ss

@@ -7409,6 +7409,7 @@
 	      [(regexp-match-peek "^WXME01[0-9][0-9] ## " p)
 	       (let ([t (make-object text%)])
 		 (send t insert-file p 'standard)
+		 (close-input-port p)
 		 (open-input-text-editor t))]
 	      [else p])])
       (port-count-lines! p) ; in case it's new
@@ -7429,6 +7430,10 @@
 		  (lloop c))))))
       (values p filename))))
 
+(define (open-input-graphical-file filename)
+  (let-values ([(p name) (build-input-port filename)])
+    p))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (define make-namespace-with-mred
@@ -7652,6 +7657,7 @@
 	timer%
 	readable-snip<%>
 	open-input-text-editor
+	open-input-graphical-file
 	text-editor-load-handler
 	application-about-handler
 	application-preferences-handler