diff options
| -rw-r--r-- | mac/tkMacMenu.c | 32 |
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); + } + } +} |