...

original commit: ebf561e60cef781e43010e1b64b1b294f5e357f9

collects/framework/frame.ss

@@ -65,6 +65,7 @@
 	   (make-object % parent))])
       (sequence
 	(apply super-init args)
+	(send (group:get-the-frame-group) insert-frame this)
 	(make-object (get-menu-bar%) this))
       (private
 	[panel (make-root-area-container (get-area-container%) this)])

collects/framework/gen-standard-menus.ss

@@ -5,7 +5,7 @@ string=? ; exec mred -mgaqvf $0
 (require-library "pretty.ss")
 (require-library "function.ss")
 
-(load-relative "standard-menus-items.ss")
+(require-library "standard-menus-items.ss" "framework")
 
 (define build-id
   (case-lambda
@@ -111,7 +111,7 @@ string=? ; exec mred -mgaqvf $0
   `(public [,(generic-name generic)
 	    ,(generic-initializer generic)]))
 
-(call-with-output-file "standard-menus.ss"
+(call-with-output-file (build-path (collection-path "framework") "standard-menus.ss")
   (lambda (port)
     (pretty-print
      `(define standard-menus<%>
@@ -131,7 +131,7 @@ string=? ; exec mred -mgaqvf $0
     (pretty-print
      `(define standard-menus-mixin
 	(mixin (basic<%>) (standard-menus<%>) args
-	  (inherit get-menu-bar on-close show)
+	  (inherit get-menu-bar can-close? on-close show)
 	  (sequence (apply super-init args))
 	  ,@(append 
 	     (map (lambda (x)

collects/framework/standard-menus-items.ss

@@ -112,7 +112,7 @@
 	(make-between 'file-menu 'print 'close 'separator)
 	(make-an-item 'file-menu 'close
 		      "Close this file"
-		      '(lambda (item control) (when (on-close) (show #f)) #t)
+		      '(lambda (item control) (when (can-close?) (on-close) (show #f)) #t)
 		      #\w "&Close" "")
 	(make-between 'file-menu 'close 'quit 'nothing)
 	(make-an-item 'file-menu 'quit

collects/tests/framework/main.ss

@@ -150,11 +150,12 @@
 			(and (list? answer)
 			     (= 2 (length answer))))
 	      (error 'send-sexp-to-mred "unpected result from mred: ~s~n" answer))
+
 	    (if (eof-object? answer)
 		(raise (make-eof-result))
 		(case (car answer)
 		  [(error)
-		   (error 'send-sexp-to-mred (format "mred raised \"~a\"" (second answer)))]
+		   (error 'send-sexp-to-mred "mred raised \"~a\"" (second answer))]
 		  [(cant-read) (error 'mred/cant-parse (second answer))]
 		  [(normal) 
 		   (printf "  ~a // ~a: received from mred:~n" section-name test-name)