summaryrefslogtreecommitdiffstats
path: root/win/tkWinMenu.c
diff options
context:
space:
mode:
Diffstat (limited to 'win/tkWinMenu.c')
-rw-r--r--win/tkWinMenu.c22
1 files changed, 11 insertions, 11 deletions
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);
}