From f25b19db8d50748d4f75272ae324cad27788d9b3 Mon Sep 17 00:00:00 2001
From: Paul Traina <pst@FreeBSD.org>
Date: Thu, 27 Nov 1997 19:49:05 +0000
Subject: Import TCL v8.0 PL2.

---
 contrib/tcl/unix/tclXtTest.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'contrib/tcl/unix/tclXtTest.c')

diff --git a/contrib/tcl/unix/tclXtTest.c b/contrib/tcl/unix/tclXtTest.c
index bb232569cdcd..1479412dd5eb 100644
--- a/contrib/tcl/unix/tclXtTest.c
+++ b/contrib/tcl/unix/tclXtTest.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * SCCS: @(#) tclXtTest.c 1.1 97/03/24 14:30:42
+ * SCCS: @(#) tclXtTest.c 1.2 97/09/15 15:26:52
  */
 
 #include <X11/Intrinsic.h>
@@ -100,7 +100,7 @@ TesteventloopCmd(clientData, interp, argc, argv)
 
 	done = 0;
 	while (!done) {
-	    XtProcessEvent(XtIMAll);
+	    XtAppProcessEvent(TclSetAppContext(NULL), XtIMAll);
 	}
 	(void) Tcl_SetServiceMode(oldMode);
 	framePtr = oldFramePtr;
-- 
cgit v1.2.3