...

original commit: 1d0461862c0bc9e6543575a21cdfd13d5f3abb5d

collects/framework/canvas.ss

@@ -36,7 +36,7 @@
 		      "expected to be placed into a frame or dialog implementing frame:info<%>, got: ~e" 
 		      (get-top-level-window)))
 	     (when (has-focus?)
-		   (send (get-top-level-window) update-info)))))
+	       (send (get-top-level-window) update-info)))))
 
   (define wide-snip<%> (interface (basic<%>)
 			 add-wide-snip

collects/framework/editor.ss

@@ -7,7 +7,9 @@
 	  [icon : framework:icon^]
 	  [preferences : framework:preferences^]
 	  [text : framework:text^]
-	  [pasteboard : framework:pasteboard^])
+	  [pasteboard : framework:pasteboard^]
+	  [frame : framework:frame^]
+	  [mzlib:file : mzlib:file^])
   
   (rename [-keymap<%> keymap<%>])
 
@@ -237,6 +239,8 @@
 	      [super-get-keymaps get-keymaps])
       
       (override [editing-this-file? (lambda () #t)])
+
+      (inherit get-canvases)
       (private
 	[check-lock
 	 (lambda ()
@@ -247,18 +251,29 @@
 				    'write
 				    (file-or-directory-permissions
 				     filename))))])
-	     (lock lock?)))])
+	     (lock lock?)))]
+	[update-filename
+	 (lambda ()
+	   (for-each (lambda (canvas)
+		       (let ([tlw (send canvas get-top-level-window)])
+			 (when (is-a? tlw frame:editor<%>)
+			   (let ([filename (mzlib:file:normalize-path (get-filename))])
+			     (let-values ([(base name dir) (split-path filename)])
+			       (send tlw set-label name))))))
+		     (get-canvases)))])
       (override
 	[after-save-file
 	 (lambda (success)
 	   (when success
-	     (check-lock))
+	     (check-lock)
+	     (update-filename))
 	   (super-after-save-file success))]
 	
 	[after-load-file
 	 (lambda (sucessful?)
 	   (when sucessful?
-	     (check-lock))
+	     (check-lock)
+	     (update-filename))
 	   (super-after-load-file sucessful?))]
 	[get-keymaps
 	 (lambda ()