diff options
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rw-r--r-- | win/tkWinMenu.c | 22 |
2 files changed, 18 insertions, 11 deletions
@@ -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); } |