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

- added screen-number-of-screen function

This commit is contained in:
frese 2004-03-15 19:31:50 +00:00
parent 7ad0170ccf
commit 6ed5ef3d83
3 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
c/xlib/display.c
View File

@ -49,6 +49,12 @@ s48_value scx_enter_screen(Screen* scr) {
return s; 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_display_list = S48_NULL;
s48_value scx_general_after_function_binding = S48_FALSE; 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_display_list);
S48_GC_PROTECT_GLOBAL(scx_screen_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_Open_Display);
S48_EXPORT_FUNCTION(scx_Close_Display); S48_EXPORT_FUNCTION(scx_Close_Display);
S48_EXPORT_FUNCTION(scx_Display_Last_Request_Read); S48_EXPORT_FUNCTION(scx_Display_Last_Request_Read);

3
scheme/xlib/display.scm
View File

@ -148,6 +148,9 @@
;(define (screen:cells screen) ;(define (screen:cells screen)
; (visual:map-entries (screen:default-visual 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 ***************************** ;; *** connect or disconnect to X server *****************************
(import-lambda-definition %open-display (display-name) (import-lambda-definition %open-display (display-name)

2
scheme/xlib/xlib-interfaces.scm
View File

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