From b31cdd385902ec09857272c50212586d081f2c20 Mon Sep 17 00:00:00 2001 From: das Date: Wed, 22 Oct 2008 16:30:16 +0000 Subject: fix GenericEvent Tcl_Panic error --- unix/tkUnixEvent.c | 4 ++-- 1 file 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 -- cgit v0.12