diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2010-01-09 00:54:06 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2010-01-09 00:54:06 (GMT) |
| commit | c8d103e2c5587067310014c5e9195e3d3176c0e8 (patch) | |
| tree | 9d7ca731a7a70029796af147b571f3ebb944e22d /unix/tkUnixMenu.c | |
| parent | 4578d4895ac9ceb05fc50b4399009c8f46adfd8e (diff) | |
| download | tk-c8d103e2c5587067310014c5e9195e3d3176c0e8.zip tk-c8d103e2c5587067310014c5e9195e3d3176c0e8.tar.gz tk-c8d103e2c5587067310014c5e9195e3d3176c0e8.tar.bz2 | |
TIP 360: Remove special handling of the .help menu on X11.
Diffstat (limited to 'unix/tkUnixMenu.c')
| -rw-r--r-- | unix/tkUnixMenu.c | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/unix/tkUnixMenu.c b/unix/tkUnixMenu.c index 0fcadb6..4529200 100644 --- a/unix/tkUnixMenu.c +++ b/unix/tkUnixMenu.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: tkUnixMenu.c,v 1.19 2007/12/13 15:28:50 dgp Exp $ + * RCS: @(#) $Id: tkUnixMenu.c,v 1.19.2.1 2010/01/09 00:54:06 patthoyts Exp $ */ #include "default.h" @@ -1264,6 +1264,18 @@ SetHelpMenu( TkMenu *menuPtr) /* The menu we are checking */ { TkMenuEntry *cascadeEntryPtr; + int useMotifHelp = 0; + const char *option = NULL; + if (menuPtr->tkwin) { + option = Tk_GetOption(menuPtr->tkwin, "useMotifHelp", "UseMotifHelp"); + if (option != NULL) { + Tcl_GetBoolean(NULL, option, &useMotifHelp); + } + } + + if (!useMotifHelp) { + return; + } for (cascadeEntryPtr = menuPtr->menuRefPtr->parentEntryPtr; cascadeEntryPtr != NULL; |