Update of /cvsroot/scsh/scx/scheme/xlib
In directory usw-pr-cvs1:/tmp/cvs-serv4546/scheme/xlib
Modified Files:
display.scm
Log Message:
- added display-select-input, resp. scx_Display_Select_Input.
Index: display.scm
===================================================================
RCS file: /cvsroot/scsh/scx/scheme/xlib/display.scm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** display.scm 2001/09/20 14:41:01 1.8
--- display.scm 2001/10/09 15:33:45 1.9
***************
*** 300,301 ****
--- 300,312 ----
(display-wait-output display #f))))
+ ;; display-select-input requests that the X server report the events
+ ;; associated with the specified event mask. See XSelectInput.
+
+ (define (display-select-input window event-mask)
+ (%display-select-input (display-Xdisplay (window-display window))
+ (window-Xwindow window)
+ event-mask))
+
+ (import-lambda-definition %display-select-input (Xdisplay Xwindow Xevent-mask)
+ "scx_Display_Select_Input")
+
|