partial fix to PR 8613

svn: r6070

original commit: 352e9c8b2b4247524e13ad2a84c827404f69a601
This commit is contained in:
Robby Findler 2007-04-28 19:48:50 +00:00
parent 9992465419
commit 24e21e7404

View File

@ -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)