From 67ce4e46d0715cc1d52f5e686788de2bf45d31a7 Mon Sep 17 00:00:00 2001 From: frese Date: Mon, 16 Jul 2001 13:22:18 +0000 Subject: [PATCH] added forgotten declaration of sidx in make-event. removed check for event-ready? in events-pending. --- scheme/xlib/event.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/scheme/xlib/event.scm b/scheme/xlib/event.scm index 40f6e51..e824c86 100644 --- a/scheme/xlib/event.scm +++ b/scheme/xlib/event.scm @@ -13,6 +13,7 @@ (make-window Xwin (vector-ref args 2)))) (let* ((display (vector-ref args 2)) (window (vector-ref args 3)) + (sidx 4) ;; start index of event-dependand fields (make-window* (lambda (Xwindow) (make-window Xwindow display)))) ;; special entries @@ -70,9 +71,10 @@ "Peek_Event") (define (events-pending display) - (if (event-ready? display) - (%events-pending (display-Xdisplay display)) - 0)) + (%events-pending (display-Xdisplay display))) +; (if (event-ready? display) +; (%events-pending (display-Xdisplay display)) +; 0)) (import-lambda-definition %events-pending (Xdisplay) "Events_Pending") \ No newline at end of file