summaryrefslogtreecommitdiffstats
path: root/mac
diff options
context:
space:
mode:
authorericm <ericm>2000-04-10 22:43:11 (GMT)
committerericm <ericm>2000-04-10 22:43:11 (GMT)
commitd18c89755234173b73aa739b7a51e75618b6e534 (patch)
tree520393cf07e5b8085d9682bd1f974c1f06db4115 /mac
parent5a779544857025669c6e9f823fd1b7dd7baf413f (diff)
downloadtk-d18c89755234173b73aa739b7a51e75618b6e534.zip
tk-d18c89755234173b73aa739b7a51e75618b6e534.tar.gz
tk-d18c89755234173b73aa739b7a51e75618b6e534.tar.bz2
* tests/event.test: Added test for [event generate $widget
<Alt-z>] [Bug: 4611]. * tests/choosedir.test: Changed "namespace import ::tcltest" to "namespace import -force ::tcltest". * win/tkWinKey.c: * unix/tkUnixKey.c: * mac/tkMacKeyboard.c: Changed InitKeymapInfo to TkpInitKeymapInfo. [Bug: 4611]. * generic/tkStubInit.c: * generic/tkIntDecls.h: Re-gen'd from tkInt.decls. * generic/tkInt.decls: Added TkpInitKeymapInfo to list of function decls. * generic/tkBind.c (HandleEventGenerate): Added code to initialize keymap info if necessary, and to correctly set modifier bits in XEvent structure create to handle [event generate] calls. Previously, the alt/meta bits were not set correctly, so [event generate $widget <Alt-z>] would always fail. [Bug: 4611]
Diffstat (limited to 'mac')
-rw-r--r--mac/tkMacKeyboard.c11
1 files changed, 5 insertions, 6 deletions
diff --git a/mac/tkMacKeyboard.c b/mac/tkMacKeyboard.c
index b11afdd..a3b24bf 100644
--- a/mac/tkMacKeyboard.c
+++ b/mac/tkMacKeyboard.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: tkMacKeyboard.c,v 1.4 2000/02/09 02:13:53 hobbs Exp $
+ * RCS: @(#) $Id: tkMacKeyboard.c,v 1.5 2000/04/10 22:43:12 ericm Exp $
*/
#include "tkInt.h"
@@ -72,7 +72,6 @@ static Ptr KCHRPtr; /* Pointer to 'KCHR' resource. */
* Prototypes for static functions used in this file.
*/
static void InitKeyMaps _ANSI_ARGS_((void));
-static void InitKeymapInfo _ANSI_ARGS_((TkDisplay *dispPtr));
/*
@@ -466,7 +465,7 @@ TkpGetKeySym(dispPtr, eventPtr)
*/
if (dispPtr->bindInfoStale) {
- InitKeymapInfo(dispPtr);
+ TkpInitKeymapInfo(dispPtr);
}
/*
@@ -519,7 +518,7 @@ TkpGetKeySym(dispPtr, eventPtr)
/*
*--------------------------------------------------------------
*
- * InitKeymapInfo --
+ * TkpInitKeymapInfo --
*
* This procedure is invoked to scan keymap information
* to recompute stuff that's important for binding, such
@@ -535,8 +534,8 @@ TkpGetKeySym(dispPtr, eventPtr)
*--------------------------------------------------------------
*/
-static void
-InitKeymapInfo(dispPtr)
+void
+TkpInitKeymapInfo(dispPtr)
TkDisplay *dispPtr; /* Display for which to recompute keymap
* information. */
{