added locked?

original commit: 0ca1eb77a3a3c9b9e996d63200bb38c3e388065a
1997-05-22 19:44:02 +00:00 · 1997-05-22 19:44:02 +00:00 · f577471106
commit f577471106
parent 10e0270964
1 changed files with 5 additions and 0 deletions
--- a/collects/mred/edit.ss
+++ b/collects/mred/edit.ss
@ -49,6 +49,11 @@
 		  [super-lock lock])

 	  (public
+	    [locked? #f]
+	    [lock 
+	     (lambda (x)
+	       (set! locked? x)
+	       (super-lock x))]
 	    [on-close (lambda () #t)]

 	    [get-edit-snip