- 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

View File

@ -233,6 +233,13 @@ s48_value scx_List_Pixmap_Formats (s48_value Xdisplay) {
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) {
S48_GC_PROTECT_GLOBAL(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_List_Depths);
S48_EXPORT_FUNCTION(scx_List_Pixmap_Formats);
S48_EXPORT_FUNCTION(scx_Display_Select_Input);
}

View File

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