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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/xlib/event.scm
View File

@ -13,6 +13,7 @@
(make-window Xwin (vector-ref args 2)))) (make-window Xwin (vector-ref args 2))))
(let* ((display (vector-ref args 2)) (let* ((display (vector-ref args 2))
(window (vector-ref args 3)) (window (vector-ref args 3))
(sidx 4) ;; start index of event-dependand fields
(make-window* (lambda (Xwindow) (make-window* (lambda (Xwindow)
(make-window Xwindow display)))) (make-window Xwindow display))))
;; special entries ;; special entries
@ -70,9 +71,10 @@
"Peek_Event") "Peek_Event")
(define (events-pending display) (define (events-pending display)
(if (event-ready? display) (%events-pending (display-Xdisplay display)))
(%events-pending (display-Xdisplay display)) ; (if (event-ready? display)
0)) ; (%events-pending (display-Xdisplay display))
; 0))
(import-lambda-definition %events-pending (Xdisplay) (import-lambda-definition %events-pending (Xdisplay)
"Events_Pending") "Events_Pending")