summaryrefslogtreecommitdiffstats
path: root/mac/tkMacMenu.c
diff options
context:
space:
mode:
authorhobbs <hobbs>1999-12-07 03:51:05 (GMT)
committerhobbs <hobbs>1999-12-07 03:51:05 (GMT)
commitd7cea06a2ed88307396bf8f44440feaa058766b7 (patch)
treedf5f481cb3bc72c3f579751ad0137280f303521e /mac/tkMacMenu.c
parent16afd8f8c6c256b09d0495d5780ab5b29b07ef0f (diff)
downloadtk-d7cea06a2ed88307396bf8f44440feaa058766b7.zip
tk-d7cea06a2ed88307396bf8f44440feaa058766b7.tar.gz
tk-d7cea06a2ed88307396bf8f44440feaa058766b7.tar.bz2
added TkMacPreprocessMenu
Diffstat (limited to 'mac/tkMacMenu.c')
-rw-r--r--mac/tkMacMenu.c29
1 files changed, 20 insertions, 9 deletions
diff --git a/mac/tkMacMenu.c b/mac/tkMacMenu.c
index c9fb7c5..507d258 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.15 1999/12/07 03:09:58 hobbs Exp $
+ * RCS: @(#) $Id: tkMacMenu.c,v 1.16 1999/12/07 03:51:10 hobbs Exp $
*/
#include "tkMacInt.h"
@@ -4204,7 +4204,8 @@ RecursivelyClearActiveMenu(
*/
void
-InvalidateMDEFRgns(void) {
+InvalidateMDEFRgns(void)
+{
GDHandle saveDevice;
GWorldPtr saveWorld, destPort;
Point scratch;
@@ -4252,7 +4253,8 @@ InvalidateMDEFRgns(void) {
*/
void
-TkMacClearMenubarActive(void) {
+TkMacClearMenubarActive(void)
+{
TkMenuReferences *menuBarRefPtr;
if (currentMenuBarName != NULL) {
@@ -4443,15 +4445,24 @@ TkpMenuThreadInit()
*/
void
-TkpPreprocessMacMenu()
+TkMacPreprocessMenu()
{
- TkMenuReferences *menuBarRefPtr;
+ TkMenuReferences *mbRefPtr;
+ int code;
- if ( currentMenuBarName != NULL ) {
- menuBarRefPtr = TkFindMenuReferences(currentMenuBarInterp,
+ if ((currentMenuBarName != NULL) && (currentMenuBarInterp != NULL)) {
+ mbRefPtr = TkFindMenuReferences(currentMenuBarInterp,
currentMenuBarName);
- if ( (menuBarRefPtr != NULL) && (menuBarRefPtr->menuPtr != NULL) ) {
- TkPreprocessMenu(menuBarRefPtr->menuPtr->masterMenuPtr);
+ if ((mbRefPtr != NULL) && (mbRefPtr->menuPtr != NULL)) {
+ Tcl_Preserve((ClientData)currentMenuBarInterp);
+ code = TkPreprocessMenu(mbRefPtr->menuPtr->masterMenuPtr);
+ if ((code != TCL_OK) && (code != TCL_CONTINUE)
+ && (code != TCL_BREAK)) {
+ Tcl_AddErrorInfo(currentMenuBarInterp,
+ "\n (menu preprocess)");
+ Tcl_BackgroundError(currentMenuBarInterp);
+ }
+ Tcl_Release((ClientData)currentMenuBarInterp);
}
}
}