[Scsh-checkins] CVS: scx/c/xlib display.c,1.10,1.11

[David Frese <frese@users.sourceforge.net>]

Update of /cvsroot/scsh/scx/c/xlib
In directory usw-pr-cvs1:/tmp/cvs-serv4546/c/xlib

Modified Files:
        display.c 
Log Message:
- added display-select-input, resp. scx_Display_Select_Input.



Index: display.c
===================================================================
RCS file: /cvsroot/scsh/scx/c/xlib/display.c,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** display.c   2001/09/20 14:41:01     1.10
--- display.c   2001/10/09 15:33:45     1.11
***************
*** 234,237 ****
--- 234,244 ----
  }
  
+ 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);
***************
*** 269,271 ****
--- 276,279 ----
    S48_EXPORT_FUNCTION(scx_List_Depths);
    S48_EXPORT_FUNCTION(scx_List_Pixmap_Formats);
+   S48_EXPORT_FUNCTION(scx_Display_Select_Input);
  }