..

original commit: 3eb89658e986688336212fb24e1f9e1de240cf43
2003-07-03 13:20:36 +00:00 · 2003-07-03 13:20:36 +00:00 · 0f1905d48e
commit 0f1905d48e
parent 8696934cca
1 changed files with 6 additions and 5 deletions
--- a/collects/framework/private/editor.ss
+++ b/collects/framework/private/editor.ss
@ -201,10 +201,11 @@
 		     (let* ([snip (send editor-admin get-snip)]
 			    [snip-admin (send snip get-admin)])
 		       (loop (send snip-admin get-editor)))]
-		    [(send text get-canvas) => (lambda (canvas)
+		    [(send text get-canvas) 
+                     => 
+                     (lambda (canvas)
                       (send canvas get-top-level-window))]
-		    [else
-		     #f]))))]
+		    [else #f]))))]
 	  
 	  (public editing-this-file?)
 	  [define editing-this-file? (lambda () #f)]