From 2d0a4c1eb1b39e341cb8df0f7c0e0518c2623085 Mon Sep 17 00:00:00 2001
From: mdejong <mdejong>
Date: Tue, 15 Apr 2003 01:06:08 +0000
Subject: 	* win/tkWinMenu.c (TkpInitializeMenuBindings): 	Rename the
 private menu helper cmd from 	tk::tkWinMenuKey to tk::WinMenuKey. 	[Bug
 721514]

---
 ChangeLog       |  7 +++++++
 win/tkWinMenu.c | 22 +++++++++++-----------
 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);
 }
 
-- 
cgit v0.12