diff options
| author | ericm <ericm> | 2000-04-10 22:43:11 (GMT) |
|---|---|---|
| committer | ericm <ericm> | 2000-04-10 22:43:11 (GMT) |
| commit | d18c89755234173b73aa739b7a51e75618b6e534 (patch) | |
| tree | 520393cf07e5b8085d9682bd1f974c1f06db4115 /unix/tkUnixKey.c | |
| parent | 5a779544857025669c6e9f823fd1b7dd7baf413f (diff) | |
| download | tk-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 'unix/tkUnixKey.c')
| -rw-r--r-- | unix/tkUnixKey.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/unix/tkUnixKey.c b/unix/tkUnixKey.c index efba728..be2484e 100644 --- a/unix/tkUnixKey.c +++ b/unix/tkUnixKey.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: tkUnixKey.c,v 1.4 2000/02/09 02:13:54 hobbs Exp $ + * RCS: @(#) $Id: tkUnixKey.c,v 1.5 2000/04/10 22:43:13 ericm Exp $ */ #include "tkInt.h" @@ -18,7 +18,6 @@ * Prototypes for local procedures defined in this file: */ -static void InitKeymapInfo _ANSI_ARGS_((TkDisplay *dispPtr)); /* @@ -173,7 +172,7 @@ TkpGetKeySym(dispPtr, eventPtr) */ if (dispPtr->bindInfoStale) { - InitKeymapInfo(dispPtr); + TkpInitKeymapInfo(dispPtr); } /* @@ -226,7 +225,7 @@ TkpGetKeySym(dispPtr, eventPtr) /* *-------------------------------------------------------------- * - * InitKeymapInfo -- + * TkpInitKeymapInfo -- * * This procedure is invoked to scan keymap information * to recompute stuff that's important for binding, such @@ -242,8 +241,8 @@ TkpGetKeySym(dispPtr, eventPtr) *-------------------------------------------------------------- */ -static void -InitKeymapInfo(dispPtr) +void +TkpInitKeymapInfo(dispPtr) TkDisplay *dispPtr; /* Display for which to recompute keymap * information. */ { |