suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

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

original commit: 716aacf388dadf3d557eff0073dec582664a48b6
This commit is contained in:
Robby Findler 2010-06-08 16:43:32 -05:00
parent ac3e0b848b
commit 20a8870abb
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/framework/private/gen-standard-menus.rkt
View File

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

2
collects/framework/private/standard-menus-items.rkt
View File

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