From ef79ad15d5dbf9342b43711aeae4f95228bd10a5 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 22 Sep 1992 22:42:14 +0000 Subject: [PATCH] Fix implementation of X-GRAPHICS/DISCARD-EVENTS. --- v7/src/runtime/x11graph.scm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm index 65a8f7e8a..3ecd1874b 100644 --- a/v7/src/runtime/x11graph.scm +++ b/v7/src/runtime/x11graph.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: x11graph.scm,v 1.24 1992/09/18 19:05:15 cph Exp $ +$Id: x11graph.scm,v 1.25 1992/09/22 22:42:14 cph Exp $ Copyright (c) 1989-92 Massachusetts Institute of Technology @@ -375,8 +375,14 @@ MIT in each case. |# (lambda () (let ((queue (x-display/event-queue display))) (let loop () - (if (not (queue-empty? queue)) - (dequeue! queue))))) + (cond ((not (queue-empty? queue)) + (dequeue! queue) + (loop)) + ((x-display-process-events (x-display/xd display) 2) + => + (lambda (event) + (process-event display event) + (loop))))))) (lambda () (unlock-thread-mutex mutex))))) -- 2.25.1