diff options
| author | ericm <ericm@noemail.net> | 2000-04-10 22:43:11 (GMT) |
|---|---|---|
| committer | ericm <ericm@noemail.net> | 2000-04-10 22:43:11 (GMT) |
| commit | b3405a1220bd9a8d5ac583fe587adaf189b4178e (patch) | |
| tree | 520393cf07e5b8085d9682bd1f974c1f06db4115 /mac | |
| parent | 1ec849b7b645e5fd4bc8a426c62fc59b474b4bd8 (diff) | |
| download | tk-b3405a1220bd9a8d5ac583fe587adaf189b4178e.zip tk-b3405a1220bd9a8d5ac583fe587adaf189b4178e.tar.gz tk-b3405a1220bd9a8d5ac583fe587adaf189b4178e.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]
FossilOrigin-Name: cd4fc3780f76c12099288725bea9ffac8c1477dd
Diffstat (limited to 'mac')
| -rw-r--r-- | mac/tkMacKeyboard.c | 11 |
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. */ { |