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

updated constructor calls to specify wheather the X-Lib Objects 

should be freed. implemented get-motion-events.
This commit is contained in:
frese 2001-07-19 15:15:31 +00:00
parent 536e355a45
commit 0a81d851b1
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
scheme/xlib/event.scm
View File

@ -8,14 +8,15 @@
(vector-set! args idx (vector-set! args idx
(func (vector-ref args idx)))))) (func (vector-ref args idx))))))
;; for all types ;; for all types
(comp 2 make-display) ;; Display the event was read from (comp 2 (lambda (Xdisplay) ;; Display the event was read from
(comp 3 (lambda (Xwin);; event-window it is reported relative to (make-display Xdisplay #f)))
(make-window Xwin (vector-ref args 2)))) (comp 3 (lambda (Xwin) ;; event-window it is reported relative to
(make-window Xwin (vector-ref args 2) #f)))
(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 (sidx 4) ;; start index of event-dependand fields
(make-window* (lambda (Xwindow) (make-window* (lambda (Xwindow)
(make-window Xwindow display)))) (make-window Xwindow display #f))))
;; special entries ;; special entries
(case type (case type
((key-press key-release button-press button-release motion-notify) ((key-press key-release button-press button-release motion-notify)
@ -46,8 +47,9 @@
(comp (+ sidx 0) make-atom) (comp (+ sidx 0) make-atom)
(comp (+ sidx 1) make-atom) (comp (+ sidx 1) make-atom)
(comp (+ sidx 2) make-atom)) (comp (+ sidx 2) make-atom))
((colormap-notify) ((colormap-notify) ;;??
(comp (+ sidx 0) make-colormap)) ;;?? (comp (+ sidx 0) (lambda (Xcolormap)
(make-colormap Xcolormap #f))))
((client-message) ((client-message)
(comp (+ sidx 0) make-atom)) ;;?? (comp (+ sidx 0) make-atom)) ;;??
) ;; case end ) ;; case end
@ -78,3 +80,11 @@
(import-lambda-definition %events-pending (Xdisplay) (import-lambda-definition %events-pending (Xdisplay)
"Events_Pending") "Events_Pending")
(define (get-motion-events window from-time to-time)
(%get-motion-events (display-Xdisplay (window-display window))
(window-Xwindow window)
from-time to-time))
(import-lambda-definition %get-motion-events (Xdisplay Xwindow from to)
"Get_Motion_Events")