Update of /cvsroot/scsh/scx/scheme/xlib
In directory usw-pr-cvs1:/tmp/cvs-serv21882
Modified Files:
event.scm
Log Message:
updated constructor calls to specify wheather the X-Lib Objects
should be freed. implemented get-motion-events.
Index: event.scm
===================================================================
RCS file: /cvsroot/scsh/scx/scheme/xlib/event.scm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** event.scm 2001/07/16 13:22:18 1.2
--- event.scm 2001/07/19 15:15:31 1.3
***************
*** 9,20 ****
(func (vector-ref args idx))))))
;; for all types
! (comp 2 make-display) ;; Display the event was read from
! (comp 3 (lambda (Xwin);; event-window it is reported relative to
! (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
(case type
--- 9,21 ----
(func (vector-ref args idx))))))
;; for all types
! (comp 2 (lambda (Xdisplay) ;; Display the event was read from
! (make-display Xdisplay #f)))
! (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))
(window (vector-ref args 3))
(sidx 4) ;; start index of event-dependand fields
(make-window* (lambda (Xwindow)
! (make-window Xwindow display #f))))
;; special entries
(case type
***************
*** 47,52 ****
(comp (+ sidx 1) make-atom)
(comp (+ sidx 2) make-atom))
! ((colormap-notify)
! (comp (+ sidx 0) make-colormap)) ;;??
((client-message)
(comp (+ sidx 0) make-atom)) ;;??
--- 48,54 ----
(comp (+ sidx 1) make-atom)
(comp (+ sidx 2) make-atom))
! ((colormap-notify) ;;??
! (comp (+ sidx 0) (lambda (Xcolormap)
! (make-colormap Xcolormap #f))))
((client-message)
(comp (+ sidx 0) make-atom)) ;;??
***************
*** 78,80 ****
(import-lambda-definition %events-pending (Xdisplay)
! "Events_Pending")
\ No newline at end of file
--- 80,90 ----
(import-lambda-definition %events-pending (Xdisplay)
! "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")
\ No newline at end of file
|