From: Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
Date: Fri, 11 Feb 1994 13:19:19 +0000 (+0000)
Subject: (free_frame_menubar) [USE_X_TOOLKIT]. New function to destroy the X Widget
X-Git-Tag: emacs-19.34~9954
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=85f487d15cfad983171db939ce68b179a9b166d9;p=emacs.git

(free_frame_menubar) [USE_X_TOOLKIT]. New function to destroy the X Widget
instance of the menubar.
---

diff --git a/src/xmenu.c b/src/xmenu.c
index a2ba24cd86d..8e1e8dfb63b 100644
--- a/src/xmenu.c
+++ b/src/xmenu.c
@@ -838,6 +838,24 @@ set_frame_menubar (f)
 
   UNBLOCK_INPUT;
 }
+
+void
+free_frame_menubar (f)
+     FRAME_PTR f;
+{
+  Widget menubar_widget;
+  int id;
+
+  menubar_widget = f->display.x->menubar_widget;
+  id = (int) f;
+  
+  if (menubar_widget)
+    {
+      BLOCK_INPUT;
+      lw_destroy_all_widgets (id);
+      UNBLOCK_INPUT;
+    }
+}
 #endif /* USE_X_TOOLKIT */
 
 struct indices {