aboutsummaryrefslogtreecommitdiffstats
path: root/contrib/tcl/unix/tclXtTest.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/tcl/unix/tclXtTest.c')
-rw-r--r--contrib/tcl/unix/tclXtTest.c4
1 files changed, 2 insertions, 2 deletions
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;