- added screen-number-of-screen function

c/xlib/display.c

@@ -49,6 +49,12 @@ s48_value scx_enter_screen(Screen* scr) {
   return s;
 }
 
+s48_value scx_Screen_Number_Of_Screen(s48_value screen) {
+  Screen* sp = (Screen*)s48_extract_integer(S48_RECORD_REF(screen, 0));
+  int num = XScreenNumberOfScreen(sp);
+  return s48_enter_integer(num);
+}
+
 s48_value scx_display_list = S48_NULL;
 s48_value scx_general_after_function_binding = S48_FALSE;
 
@@ -160,6 +166,7 @@ void scx_init_display(void) {
   S48_GC_PROTECT_GLOBAL(scx_display_list);
   S48_GC_PROTECT_GLOBAL(scx_screen_list);
 
+  S48_EXPORT_FUNCTION(scx_Screen_Number_Of_Screen);
   S48_EXPORT_FUNCTION(scx_Open_Display);
   S48_EXPORT_FUNCTION(scx_Close_Display);
   S48_EXPORT_FUNCTION(scx_Display_Last_Request_Read);

scheme/xlib/display.scm

@@ -148,6 +148,9 @@
 ;(define (screen:cells screen)
 ;  (visual:map-entries (screen:default-visual screen)))
 
+(import-lambda-definition screen-number-of-screen (screen)
+  "scx_Screen_Number_Of_Screen")
+
 ;; *** connect or disconnect to X server *****************************
 
 (import-lambda-definition %open-display (display-name)

scheme/xlib/xlib-interfaces.scm

@@ -37,6 +37,8 @@
    screen:min-maps screen:does-backing-store screen:does-save-unders?
    screen:event-mask
 
+   screen-number-of-screen
+
    open-display
    close-display