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

- added display-select-input, resp. scx_Display_Select_Input.

This commit is contained in:
frese 2001-10-09 15:33:45 +00:00
parent bb1ee4a138
commit b4fb3ffd9f
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
c/xlib/display.c
View File

@ -233,6 +233,13 @@ s48_value scx_List_Pixmap_Formats (s48_value Xdisplay) {
return ret; return ret;
} }
s48_value scx_Display_Select_Input(s48_value Xdisplay, s48_value Xwindow,
s48_value event_mask) {
XSelectInput(SCX_EXTRACT_DISPLAY(Xdisplay),
SCX_EXTRACT_WINDOW(Xwindow),
Symbols_To_Bits(event_mask, Event_Mask_Syms));
}
void scx_init_display(void) { void scx_init_display(void) {
S48_GC_PROTECT_GLOBAL(internal_after_function_binding); S48_GC_PROTECT_GLOBAL(internal_after_function_binding);
internal_after_function_binding = internal_after_function_binding =
@ -268,4 +275,5 @@ void scx_init_display(void) {
S48_EXPORT_FUNCTION(scx_No_Op); S48_EXPORT_FUNCTION(scx_No_Op);
S48_EXPORT_FUNCTION(scx_List_Depths); S48_EXPORT_FUNCTION(scx_List_Depths);
S48_EXPORT_FUNCTION(scx_List_Pixmap_Formats); S48_EXPORT_FUNCTION(scx_List_Pixmap_Formats);
S48_EXPORT_FUNCTION(scx_Display_Select_Input);
} }

11
scheme/xlib/display.scm
View File

@ -299,3 +299,14 @@
(lambda (display) (lambda (display)
(display-wait-output display #f)))) (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")