From 24e21e7404339560e426b8ba0808d768cf8e132a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 28 Apr 2007 19:48:50 +0000 Subject: [PATCH] partial fix to PR 8613 svn: r6070 original commit: 352e9c8b2b4247524e13ad2a84c827404f69a601 --- collects/framework/private/group.ss | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/collects/framework/private/group.ss b/collects/framework/private/group.ss index fd20aec2..863bee39 100644 --- a/collects/framework/private/group.ss +++ b/collects/framework/private/group.ss @@ -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)