From 16afd8f8c6c256b09d0495d5780ab5b29b07ef0f Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 7 Dec 1999 03:09:58 +0000
Subject: added TkpPreprocessMenu (commited before saving one last file...)

---
 mac/tkMacMenu.c | 32 +++++++++++++++++++++++++++++++-
 1 file changed, 31 insertions(+), 1 deletion(-)

diff --git a/mac/tkMacMenu.c b/mac/tkMacMenu.c
index 2044a0a..c9fb7c5 100644
--- a/mac/tkMacMenu.c
+++ b/mac/tkMacMenu.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkMacMenu.c,v 1.14 1999/12/07 03:04:51 hobbs Exp $
+ * RCS: @(#) $Id: tkMacMenu.c,v 1.15 1999/12/07 03:09:58 hobbs Exp $
  */
 
 #include "tkMacInt.h"
@@ -4425,3 +4425,33 @@ TkpMenuThreadInit()
      * Nothing to do.
      */
 }
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkpPreprocessMacMenu --
+ *
+ *    Handle preprocessing of menubar if it exists.
+ *
+ * Results:
+ *    None.
+ *
+ * Side effects:
+ *    All post commands for the current menubar get executed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkpPreprocessMacMenu()
+{
+    TkMenuReferences *menuBarRefPtr;
+
+    if ( currentMenuBarName != NULL ) {
+        menuBarRefPtr = TkFindMenuReferences(currentMenuBarInterp,
+		currentMenuBarName);
+        if ( (menuBarRefPtr != NULL) && (menuBarRefPtr->menuPtr != NULL) ) {
+	    TkPreprocessMenu(menuBarRefPtr->menuPtr->masterMenuPtr);
+        }
+    }
+}
-- 
cgit v0.12