scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added forgotten declaration of sidx in make-event. removed check for 

event-ready? in events-pending.
This commit is contained in:
frese 2001-07-16 13:22:18 +00:00
parent 4f7bde5ba1
commit 67ce4e46d0
1 changed files with 5 additions and 3 deletions
scheme/xlib
event.scm

8
scheme/xlib/event.scm
View File

@ -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")