summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog7
-rw-r--r--win/tkWinMenu.c22
2 files changed, 18 insertions, 11 deletions
diff --git a/ChangeLog b/ChangeLog
index 30be20e..d497a5f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
2003-04-14 Mo DeJong <mdejong@users.sourceforge.net>
+ * win/tkWinMenu.c (TkpInitializeMenuBindings):
+ Rename the private menu helper cmd from
+ tk::tkWinMenuKey to tk::WinMenuKey.
+ [Bug 721514]
+
+2003-04-14 Mo DeJong <mdejong@users.sourceforge.net>
+
* generic/tkBind.c (TkpGetBindingXEvent): Add helper method
that can be used to query the XEvent* for the currently
executing binding.
diff --git a/win/tkWinMenu.c b/win/tkWinMenu.c
index 295a71e..696fe8d 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.22 2003/04/14 23:34:50 mdejong Exp $
+ * RCS: @(#) $Id: tkWinMenu.c,v 1.23 2003/04/15 01:06:09 mdejong Exp $
*/
#define OEMRESOURCE
@@ -1744,7 +1744,7 @@ DrawMenuUnderline(
* This procedure is invoked when keys related to pulling
* down menus is pressed. The corresponding Windows events
* are generated and passed to DefWindowProc if appropriate.
- * This cmd is registered as tk::tkWinMenuKey in the interp.
+ * This cmd is registered as tk::WinMenuKey in the interp.
*
* Results:
* Always returns TCL_OK.
@@ -1899,56 +1899,56 @@ TkpInitializeMenuBindings(interp, bindingTable)
* we may want to modify the binding in Tcl code.
*/
- (void) Tcl_CreateObjCommand(interp, "tk::tkWinMenuKey",
+ (void) Tcl_CreateObjCommand(interp, "tk::WinMenuKey",
TkWinMenuKeyObjCmd,
(ClientData) Tk_MainWindow(interp), (Tcl_CmdDeleteProc *) NULL);
(void) Tk_CreateBinding(interp, bindingTable,
(ClientData) uid,
"<Alt_L>",
- "tk::tkWinMenuKey %W %N",
+ "tk::WinMenuKey %W %N",
0);
(void) Tk_CreateBinding(interp, bindingTable,
(ClientData) uid,
"<KeyRelease-Alt_L>",
- "tk::tkWinMenuKey %W %N",
+ "tk::WinMenuKey %W %N",
0);
(void) Tk_CreateBinding(interp, bindingTable,
(ClientData) uid,
"<Alt_R>",
- "tk::tkWinMenuKey %W %N",
+ "tk::WinMenuKey %W %N",
0);
(void) Tk_CreateBinding(interp, bindingTable,
(ClientData) uid,
"<KeyRelease-Alt_R>",
- "tk::tkWinMenuKey %W %N",
+ "tk::WinMenuKey %W %N",
0);
(void) Tk_CreateBinding(interp, bindingTable,
(ClientData) uid,
"<Alt-KeyPress>",
- "tk::tkWinMenuKey %W %N",
+ "tk::WinMenuKey %W %N",
0);
(void) Tk_CreateBinding(interp, bindingTable,
(ClientData) uid,
"<Alt-KeyRelease>",
- "tk::tkWinMenuKey %W %N",
+ "tk::WinMenuKey %W %N",
0);
(void) Tk_CreateBinding(interp, bindingTable,
(ClientData) uid,
"<KeyPress-F10>",
- "tk::tkWinMenuKey %W %N",
+ "tk::WinMenuKey %W %N",
0);
(void) Tk_CreateBinding(interp, bindingTable,
(ClientData) uid,
"<KeyRelease-F10>",
- "tk::tkWinMenuKey %W %N",
+ "tk::WinMenuKey %W %N",
0);
}