changed the framework's standard menus frame so that the quit menu is

never created under mac os x (which is the right behavior to make quit
actually work properly).

original commit: 716aacf388dadf3d557eff0073dec582664a48b6

collects/framework/private/gen-standard-menus.rkt

@@ -7,7 +7,7 @@
 
 (define-runtime-path here ".")
 
-(define standard-menus.ss-filename (simplify-path (build-path here "standard-menus.ss")))
+(define standard-menus.rkt-filename (simplify-path (build-path here "standard-menus.rkt")))
 (define docs-menus.ss-filename (simplify-path (build-path here 'up 'up "scribblings" "framework" "standard-menus.scrbl")))
 
 ;; build-before-super-item-clause : an-item -> (listof clause)
@@ -121,7 +121,7 @@
               ,(generic-initializer generic)))]))
 
 (define (main)
-  (write-standard-menus.ss)
+  (write-standard-menus.rkt)
   (write-docs))
 
 (define (write-docs)
@@ -202,10 +202,10 @@
       (display docs-footer-text port))
     #:exists 'truncate))
 
-(define (write-standard-menus.ss)
-  (printf "writing to ~a~n" standard-menus.ss-filename)  
+(define (write-standard-menus.rkt)
+  (printf "writing to ~a~n" standard-menus.rkt-filename)  
 
-  (call-with-output-file standard-menus.ss-filename
+  (call-with-output-file standard-menus.rkt-filename
     (λ (port)
       (pretty-print
        `(define standard-menus<%>

collects/framework/private/standard-menus-items.rkt

@@ -280,7 +280,7 @@
                            (string-constant quit-menu-item-windows)
                            (string-constant quit-menu-item-others))
                       on-demand-do-nothing
-                      '(not (current-eventspace-has-standard-menus?)))
+                      '(not (eq? (system-type) 'macosx)))
         (make-after 'file-menu 'quit 'nothing)
         
         (make-an-item 'edit-menu 'undo