From 8f0fd5a555ddc5319c749f5780846a58fca5565c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 14 Mar 2009 10:21:10 +0000
Subject: [PATCH] fix submenus in popup menus

svn: r14094
---
 src/wxmac/src/mac/wx_menu.cc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/wxmac/src/mac/wx_menu.cc b/src/wxmac/src/mac/wx_menu.cc
index ede59182dc..ca72f799c2 100644
--- a/src/wxmac/src/mac/wx_menu.cc
+++ b/src/wxmac/src/mac/wx_menu.cc
@@ -329,6 +329,7 @@ MenuHandle wxMenu::CreateCopy(char *title, Bool doabouthack, MenuHandle toHandle
       title = wxBuildMacMenuString(tempString, menuItem->itemName, NULL, NULL, NULL);
       subMenu = menuItem->subMenu;
       subMenu->wxMacInsertSubmenu();
+      ::InsertMenu(subMenu->cMacMenu, -1);
       hId = subMenu->cMacMenuId;
     } else {
       title = wxBuildMacMenuString(tempString, menuItem->itemName, &spc, &modifiers, &is_virt);