diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-01-02 00:00:20 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-01-02 00:00:20 (GMT) |
| commit | 1e85ca777ce26da8f7247f965272c9b9f670049c (patch) | |
| tree | df32a933b6aca00c7d709d7845d215ea20970345 /unix/tkUnixEvent.c | |
| parent | aa4c765febd5c742dbc658574c6a06d4e94fdc59 (diff) | |
| download | tk-1e85ca777ce26da8f7247f965272c9b9f670049c.zip tk-1e85ca777ce26da8f7247f965272c9b9f670049c.tar.gz tk-1e85ca777ce26da8f7247f965272c9b9f670049c.tar.bz2 | |
Oops!
Diffstat (limited to 'unix/tkUnixEvent.c')
| -rw-r--r-- | unix/tkUnixEvent.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/unix/tkUnixEvent.c b/unix/tkUnixEvent.c index 52e5673..a104aad 100644 --- a/unix/tkUnixEvent.c +++ b/unix/tkUnixEvent.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: tkUnixEvent.c,v 1.27.2.1 2010/01/01 23:03:42 dkf Exp $ + * RCS: @(#) $Id: tkUnixEvent.c,v 1.27.2.2 2010/01/02 00:00:20 dkf Exp $ */ #include "tkUnixInt.h" @@ -295,13 +295,13 @@ TransferXEventsToTcl( while (QLength(display) > 0) { XNextEvent(display, &event); w = None; - if (event.x.type == KeyPress || event.x.type == KeyRelease) { + if (event.type == KeyPress || event.type == KeyRelease) { TkDisplay *dispPtr; for (dispPtr = TkGetDisplayList(); ; dispPtr = dispPtr->nextPtr) { if (dispPtr == NULL) { break; - } else if (dispPtr->display == event.x.xany.display) { + } else if (dispPtr->display == event.xany.display) { if (dispPtr->focusPtr != NULL) { w = dispPtr->focusPtr->window; } @@ -309,7 +309,7 @@ TransferXEventsToTcl( } } } - if (XFilterEvent(&event.x, w)) { + if (XFilterEvent(&event, w)) { continue; } Tk_QueueWindowEvent(&event, TCL_QUEUE_TAIL); |