diff options
| author | das <das> | 2008-10-22 16:30:16 (GMT) |
|---|---|---|
| committer | das <das> | 2008-10-22 16:30:16 (GMT) |
| commit | b31cdd385902ec09857272c50212586d081f2c20 (patch) | |
| tree | 2a4d764e8dc8bc64d3cbddb1ca721e64f62b5b15 | |
| parent | a21c33c0f20c4fa209681d67d86cbef627349998 (diff) | |
| download | tk-b31cdd385902ec09857272c50212586d081f2c20.zip tk-b31cdd385902ec09857272c50212586d081f2c20.tar.gz tk-b31cdd385902ec09857272c50212586d081f2c20.tar.bz2 | |
fix GenericEvent Tcl_Panic error
| -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 |