partial fix to PR 8613
svn: r6070
This commit is contained in:
parent
b969371faa
commit
352e9c8b2b
|
@ -85,6 +85,17 @@
|
|||
(for-each
|
||||
(λ (menu)
|
||||
(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% ()
|
||||
(label (string-constant bring-frame-to-front...))
|
||||
(parent menu)
|
||||
|
|
|
@ -670,6 +670,8 @@ please adhere to these guidelines:
|
|||
(wrap-text-item "Wrap Text")
|
||||
|
||||
(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...") ;;; corresponding title of menu item
|
||||
(most-recent-window "Most Recent Window")
|
||||
|
|
Loading…
Reference in New Issue
Block a user