From 234de2586bb2290ad6654bd3d4cc4c0ab10a7430 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 4 Jul 2002 21:15:30 +0000
Subject: [PATCH] .

original commit: 8a2ae6844ec0ce4ea5b85d9c6a729ffe9fae70a3
---
 collects/mred/doc.txt | 26 ++++++++++++++++++++++++++
 collects/mred/edit.ss |  4 ++--
 2 files changed, 28 insertions(+), 2 deletions(-)
 create mode 100644 collects/mred/doc.txt

diff --git a/collects/mred/doc.txt b/collects/mred/doc.txt
new file mode 100644
index 00000000..8390c72e
--- /dev/null
+++ b/collects/mred/doc.txt
@@ -0,0 +1,26 @@
+
+_edit-main.ss_
+
+The edit-main.ss module does not export anything, but invoking the
+module opens an _editor_ frame or frames, based on the
+`current-command-line-arguments' parameter.
+
+In particular, from a command line
+
+   mred -mvqL edit-main.ss <filename> ...
+
+runs a simple editor program. If <filename> is an image file (suffix
+.gif, .xpm, .xbm, .bmp, or .jpg), the editor window display the image.
+
+-----------------------------------------------------------------
+
+_edit.ss_
+
+The edit.ss module exports the following function.
+
+> (new-text-frame file)
+   Creates an editor text frame, initially loading `file' if is it a
+   string. Supply #f as `file' for an initially empty editor.
+
+> (new-pasteboard-frame file)
+  Like `new-text-frame', but for a pasteboard editor.
diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss
index aabd23a2..e1742d67 100644
--- a/collects/mred/edit.ss
+++ b/collects/mred/edit.ss
@@ -13,7 +13,7 @@
   (define (new-pasteboard-frame file) (new-frame pasteboard% file))
 
   (define (new-frame editor% file)
-    (define f (make-object frame% (or file "Simple Editor") #f 620 450))
+    (define f (make-object frame% "MrEdIt" #f 620 450))
     (define c (make-object editor-canvas% f))
     (define e (make-object editor%))
     (define mb (make-object menu-bar% f))
@@ -56,7 +56,7 @@
     (send c set-editor e)
 
     (when file
-      (if (regexp-match "[.]((gif)|(bmp)|(jpg)|(xbm))$" file)
+      (if (regexp-match "[.]((gif)|(bmp)|(jpg)|(xbm)|(xpm))$" file)
 	  (send e insert (make-object image-snip% file))
 	  (send e load-file file)))