From e595b66a9a2643ea6d96fe86c49d233d39756374 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 25 Jul 1996 16:49:28 +0000
Subject: [PATCH] *** empty log message ***

original commit: 38074a9af3f564b2a4f094212b455aac2b63269a
---
 collects/mred/edit.ss | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss
index b3275f0f..9ccc5d69 100644
--- a/collects/mred/edit.ss
+++ b/collects/mred/edit.ss
@@ -21,12 +21,24 @@
 	    [super-set-filename set-filename]
 	    [super-set-modified set-modified]
 	    [super-on-change on-change]
-	    [super-on-save-file on-save-file])
+	    [super-on-save-file on-save-file]
+	    [super-on-focus on-focus]
+	    [super-lock lock])
 	  (private
 	    [auto-saved-name #f]
 	    [auto-save-out-of-date? #t]
 	    [auto-save-error? #f])
 	  (public
+	    [locked? #f]
+	    [lock
+	     (lambda (v)
+	       (set! locked? v)
+	       (super-lock v))]
+	    [on-focus
+	     (lambda (in?)
+	       '(send (ivar (get-frame) save-icon) show (and in? (modified?)))
+	       '(send (ivar (get-frame) lock-icon) show (and in? locked?))
+	       (super-on-focus in?))]
 	    [get-file (lambda (d) (let ([v (mred:finder:get-file d)])
 				    (if v
 					v