summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--mac/tkMacMenu.c32
1 files changed, 31 insertions, 1 deletions
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);
+ }
+ }
+}