...

original commit: 5adf201b59679d8157e379b50c94548104f43c76

collects/framework/finder.ss

@@ -681,7 +681,7 @@
 		prompt 
 		parent-win
 		directory)])
-	(or f
+	(if f
 	    (if (or (not filter) (filter-match? filter f filter-msg))
 		(let ([f (mzlib:file:normalize-path f)])
 		  (cond
@@ -692,7 +692,8 @@
 		     (message-box "File does not exist.")
 		     #f]
 		    [else f]))
-		#f)))))
+		#f)
+	    #f))))
   
   ; external interfaces to file functions
   

collects/framework/frame.ss

@@ -83,7 +83,7 @@
 		       [mdi-parent (cons 'mdi-child style)]
 		       [else style])))
 
-	(make-object (get-menu-bar%) this)
+	(make-object menu% "Windows" (make-object (get-menu-bar%) this))
 	(send (group:get-the-frame-group) insert-frame this))
       (private
 	[panel (make-root-area-container (get-area-container%) this)])
@@ -1068,4 +1068,6 @@
 
   (define -pasteboard% (pasteboard-mixin editor%))
   (define pasteboard-info% (info-mixin -pasteboard%))
-  (define pasteboard-info-file% (file-mixin pasteboard-info%)))
+  (define pasteboard-info-file% (file-mixin pasteboard-info%))
+  
+  )

collects/framework/main.ss

@@ -180,7 +180,7 @@
 			(set! test #f)
 			(semaphore-post s))))))))
   
-  (preferences:set-default 'framework:exit-when-no-frames #f boolean?)
+  (preferences:set-default 'framework:exit-when-no-frames #t boolean?)
 
   (let ([at-most-one (at-most-one-maker)])
     (send (group:get-the-frame-group) set-empty-callbacks

collects/framework/standard-menus-items.ss

@@ -28,8 +28,6 @@
 			", "
 			"@ilink frame:standard-menus get-edit-menu %"
 			", "
-			"@ilink frame:standard-menus get-windows-menu %"
-			", and"
 			"@ilink frame:standard-menus get-help-menu %"
 			". "
 			""
@@ -68,15 +66,6 @@
 			"@ilink frame:standard-menus get-menu\\%"
 			""
 			"@return : (instance (derived-from \\iscmclass{menu}))"))
-	(make-generic 'get-windows-menu
-		      '(let ([m (make-object (get-menu%) "&Windows" (get-menu-bar))])
-			 (lambda () m))
-		      
-		      '("Returns the windows menu"
-			"See also"
-			"@ilink frame:standard-menus get-menu\\%"
-			""
-			"@return : (instance (derived-from \\iscmclass{menu}))"))
 	(make-generic 'get-help-menu
 		      '(let ([m (make-object (get-menu%) "&Help" (get-menu-bar))])
 			 (lambda () m))

collects/tests/framework/main.ss

@@ -306,6 +306,7 @@
     
 	(for-each (lambda (x)
 		    (when (member x all-files)
+		      (shutdown-mred)
 		      (let/ec k
 			(fluid-let ([section-name x]
 				    [section-jump k])