diff options
| author | hobbs <hobbs> | 2002-08-08 01:42:57 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-08-08 01:42:57 (GMT) |
| commit | 7649d44ad901fe7db866a68ed60c2527ded407e3 (patch) | |
| tree | c7d818bf467b2e063a6cf1d96464982e41eff30c /win/tkWinMenu.c | |
| parent | 28623411358deaf11def089ae8ebf32bce8dc86f (diff) | |
| download | tk-7649d44ad901fe7db866a68ed60c2527ded407e3.zip tk-7649d44ad901fe7db866a68ed60c2527ded407e3.tar.gz tk-7649d44ad901fe7db866a68ed60c2527ded407e3.tar.bz2 | |
* win/tkWinMenu.c (TkpSetWindowMenuBar): fixed logic bug in when
to idle call ReconfigureWindowsMenu.
Diffstat (limited to 'win/tkWinMenu.c')
| -rw-r--r-- | win/tkWinMenu.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/win/tkWinMenu.c b/win/tkWinMenu.c index e5a7078..ff2d557 100644 --- a/win/tkWinMenu.c +++ b/win/tkWinMenu.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkWinMenu.c,v 1.20 2002/08/05 04:30:41 dgp Exp $ + * RCS: @(#) $Id: tkWinMenu.c,v 1.21 2002/08/08 01:42:57 hobbs Exp $ */ #define OEMRESOURCE @@ -1240,16 +1240,15 @@ TkpSetWindowMenuBar(tkwin, menuPtr) Tcl_SetHashValue(hashEntryPtr, (char *) menuPtr); menuPtr->platformData = (TkMenuPlatformData) winMenuHdl; TkWinSetMenu(tkwin, winMenuHdl); - if (menuPtr->menuFlags & MENU_RECONFIGURE_PENDING) { - Tcl_DoWhenIdle(ReconfigureWindowsMenu, (ClientData) menuPtr); + if (!(menuPtr->menuFlags & MENU_RECONFIGURE_PENDING)) { menuPtr->menuFlags |= MENU_RECONFIGURE_PENDING; + Tcl_DoWhenIdle(ReconfigureWindowsMenu, (ClientData) menuPtr); } } else { TkWinSetMenu(tkwin, NULL); } } - /* *---------------------------------------------------------------------- * |