fixed bugs in read and mis other bugs

original commit: 38dc7ee480ceffd065d80da911677003ec992706

collects/mred/edit.ss

@@ -175,41 +175,27 @@
 	       (error 'after-edit-sequence
 		      "extra call to after-edit-sequence"))
 	     (super-after-edit-sequence)
-	     (when (= 0 edit-sequence-counter)
+	     (let ([queue edit-sequence-queue]
-	       (mred:debug:printf 'lock-icon
+		   [ht edit-sequence-ht]
-				  "queue: ~a"
+		   [find-enclosing-edit
-				  edit-sequence-queue)
+		    (lambda (edit)
-	       (let ([queue edit-sequence-queue]
+		      (let ([admin (send edit get-admin)])
-		     [ht edit-sequence-ht]
+			(cond
-		     [find-enclosing-edit
+			  [(is-a? admin wx:media-snip-media-admin%)
-		      (lambda (edit)
+			   (send (send (send admin get-snip) get-admin) get-media)]
-			(let ([admin (send edit get-admin)])
+			  ;; assume that any non-media-snip 
-			  (cond
+			  ;; administrator doesn't have embedded edits.
-			   [(is-a? admin wx:media-snip-media-admin%)
+			  [else #f])))])
-			    (send (send admin get-snip) get-media)]
+	       (set! edit-sequence-queue null)
-
+	       (set! edit-sequence-ht (make-hash-table))
-			   ;; assume that any non-media-snip 
+	       (let loop ([edit (find-enclosing-edit this)])
-			   ;; administrator doesn't have embedded edits.
+		 (cond
-			   [else #f])))])
+		   [(and edit (not (ivar edit local-edit-sequence?)))
-		 (unless (null? queue)
+		    (loop (find-enclosing-edit edit))]
-		   (set! edit-sequence-queue null)
+		   [edit (send edit extend-edit-sequence-queue queue ht)]
-		   (set! edit-sequence-ht (make-hash-table))
+		   [else
-		   (let loop ([edit (find-enclosing-edit this)])
+		    (hash-table-for-each ht (lambda (k t) (t)))
-		     (cond
+		    (for-each (lambda (t) (t)) queue)]))))])
-		      [(and edit (= 0 (ivar edit edit-sequence-counter)))
-		       (loop (find-enclosing-edit edit))]
-		      [edit 
-		       (mred:debug:printf 'lock-icon
-					  "passing queue to another edit ~a"
-					  edit
-					  edit-sequence-counter)
-		       (send edit extend-edit-sequence-queue queue ht)]
-		      [else
-		       (mred:debug:printf 'lock-icon
-					  "running queue")
-		       (hash-table-for-each ht (lambda (k t) (t)))
-		       (for-each (lambda (t) (t)) queue)]))))))])
-
 	(public
 	  [locked? #f]
 	  [lock 

collects/mred/keys.ss

@@ -177,10 +177,7 @@
 				       (wx:message-box "Checkout Failed")))))]))))))))]
 	   [save-file-as
 	    (lambda (edit event)
-	      (let ([file 
+	      (let ([file (mred:finder:put-file)])
-		     (parameterize ([mred:finder:dialog-parent-parameter
-				     (mred:test:test:get-active-frame)])
-		       (mred:finder:put-file))])
 		(if file
 		    (send edit save-file file)))
 	      #t)]