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

partial fix to PR 8613

Browse Source 
svn: r6070
This commit is contained in:
Robby Findler 2007-04-28 19:48:50 +00:00
parent b969371faa
commit 352e9c8b2b
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/framework/private/group.ss
View File

@ -85,6 +85,17 @@
(for-each (for-each
(λ (menu) (λ (menu)
(for-each (λ (item) (send item delete)) (send menu get-items)) (for-each (λ (item) (send item delete)) (send menu get-items))
(when (eq? (system-type) 'macosx)
(new menu:can-restore-menu-item%
[label (string-constant minimize)]
[parent menu]
[callback (λ (x y) (send (send (send menu get-parent) get-frame) iconize #t))]
[shortcut #\m])
(new menu:can-restore-menu-item%
[label (string-constant zoom)]
[parent menu]
[callback (λ (x y) (send (send (send menu get-parent) get-frame) maximize #t))])
(make-object separator-menu-item% menu))
(instantiate menu:can-restore-menu-item% () (instantiate menu:can-restore-menu-item% ()
(label (string-constant bring-frame-to-front...)) (label (string-constant bring-frame-to-front...))
(parent menu) (parent menu)

2
collects/string-constants/english-string-constants.ss
View File

@ -670,6 +670,8 @@ please adhere to these guidelines:
(wrap-text-item "Wrap Text") (wrap-text-item "Wrap Text")
(windows-menu-label "&Windows") (windows-menu-label "&Windows")
(minimize "Minimize") ;; minimize and zoom are only used under mac os x
(zoom "Zoom")
(bring-frame-to-front "Bring Frame to Front") ;;; title of dialog (bring-frame-to-front "Bring Frame to Front") ;;; title of dialog
(bring-frame-to-front... "Bring Frame to Front...") ;;; corresponding title of menu item (bring-frame-to-front... "Bring Frame to Front...") ;;; corresponding title of menu item
(most-recent-window "Most Recent Window") (most-recent-window "Most Recent Window")