Backport upstream fix for "no event type or button # or keysym"

[pf3gnuchains/sourceware.git] / tk / unix / tkUnixEvent.c

diff --git a/tk/unix/tkUnixEvent.c b/tk/unix/tkUnixEvent.c
index bb87c4a..c3a0d2a 100644 (file)
--- a/tk/unix/tkUnixEvent.c
+++ b/tk/unix/tkUnixEvent.c
@@ -288,6 +288,14 @@ TransferXEventsToTcl(display)
 
     while (numFound > 0) {
        XNextEvent(display, &event);
+#ifdef GenericEvent
+       if (event.type == GenericEvent) {
+           xGenericEvent *xgePtr = (xGenericEvent *) &event;
+
+           Tcl_Panic("Wild GenericEvent; panic! (extension=%d,evtype=%d)",
+                     xgePtr->extension, xgePtr->evtype);
+       }
+#endif
        Tk_QueueWindowEvent(&event, TCL_QUEUE_TAIL);
        numFound--;
     }