diff options
| author | das <das> | 2008-10-22 16:30:16 (GMT) |
|---|---|---|
| committer | das <das> | 2008-10-22 16:30:16 (GMT) |
| commit | 38f9f6a49b7cbda040df439eb21edbf4dc71e6bb (patch) | |
| tree | 2a4d764e8dc8bc64d3cbddb1ca721e64f62b5b15 /unix/tkUnixEvent.c | |
| parent | ac3e24d0111b77c7fb44c0c5b9b3cafb7f00dda2 (diff) | |
| download | tk-38f9f6a49b7cbda040df439eb21edbf4dc71e6bb.zip tk-38f9f6a49b7cbda040df439eb21edbf4dc71e6bb.tar.gz tk-38f9f6a49b7cbda040df439eb21edbf4dc71e6bb.tar.bz2 | |
fix GenericEvent Tcl_Panic error
Diffstat (limited to 'unix/tkUnixEvent.c')
| -rw-r--r-- | unix/tkUnixEvent.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tkUnixEvent.c b/unix/tkUnixEvent.c index a6b1485..292af66 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.30 2008/10/05 18:22:21 dkf Exp $ + * RCS: @(#) $Id: tkUnixEvent.c,v 1.31 2008/10/22 16:30:16 das Exp $ */ #include "tkUnixInt.h" @@ -291,7 +291,7 @@ TransferXEventsToTcl( if (event.type == GenericEvent) { xGenericEvent *xgePtr = (xGenericEvent *) &event; - Tcl_Panic("Wild GenericEvent; panic! (extension=%d,evtype=%d)" + Tcl_Panic("Wild GenericEvent; panic! (extension=%d,evtype=%d)", xgePtr->extension, xgePtr->evtype); } #endif |