$NetBSD: patch-af,v 1.1 2000/09/03 23:08:34 wiz Exp $

--- canvas-tcl8.0.3/tkEvent.c.orig	Wed Sep 30 03:05:07 1998
+++ canvas-tcl8.0.3/tkEvent.c
@@ -836,7 +836,7 @@
      * Find our display structure for the event's display.
      */
 
-    for (dispPtr = tkDisplayList; ; dispPtr = dispPtr->nextPtr) {
+    for (dispPtr = TkGetDisplayList(); ; dispPtr = dispPtr->nextPtr) {
 	if (dispPtr == NULL) {
 	    return;
 	}