(define-structure xlib-display xlib-display-interface (open scheme signals ;; for error external-calls xlib-types) (files display)) (define-structure xlib-window xlib-window-interface (open scheme signals ;; for error external-calls receiving xlib-types xlib-graphics ;; for clear-window ) (files window)) (define-structure xlib-drawable xlib-drawable-interface (open scheme external-calls xlib-types xlib-window xlib-pixmap) (files drawable)) (define-structure xlib-color xlib-color-interface (open scheme signals ;; for error external-calls xlib-types) (files color)) (define-structure xlib-colormap xlib-colormap-interface (open scheme external-calls xlib-types) (files colormap)) (define-structure xlib-pixel xlib-pixel-interface (open scheme external-calls xlib-types) (files pixel)) (define-structure xlib-gcontext xlib-gcontext-interface (open scheme signals ;; for error external-calls receiving xlib-types) (files gcontext)) (define-structure xlib-pixmap xlib-pixmap-interface (open scheme signals ;; for error external-calls xlib-types) (files pixmap)) ;;... (define-structure xlib-graphics xlib-graphics-interface (open scheme external-calls xlib-types) (files graphics)) (define-structure xlib-event xlib-event-interface (open scheme external-calls threads ;; for sleep xlib-types) (files event)) (define-structure xlib-font xlib-font-interface (open scheme signals ;; for error external-calls xlib-types) (files font)) (define-structure xlib-text xlib-text-interface (open scheme signals ;; for error external-calls ascii ;; for char->ascii etc. xlib-types) (files text)) (define-structure xlib-property xlib-property-interface (open scheme external-calls xlib-types) (files property)) (define-structure xlib-cursor xlib-cursor-interface (open scheme external-calls xlib-types) (files cursor)) (define-structure xlib-wm xlib-wm-interface (open scheme external-calls xlib-types ) (files wm)) (define-structure xlib-client xlib-client-interface (open scheme external-calls xlib-types xlib-display ;; for check-screen-number ) (files client)) (define-structure xlib-key xlib-key-interface (open scheme external-calls xlib-types) (files key)) (define-structure xlib-error xlib-error-interface (open scheme external-calls xlib-types) (files error)) (define-structure xlib-extension xlib-extension-interface (open scheme external-calls xlib-types) (files extension)) (define-structure xlib-utility xlib-utility-interface (open scheme external-calls receiving xlib-types xlib-display xlib-property) (files utility)) (define-structure xlib-grab xlib-grab-interface (open scheme external-calls xlib-types) (files grab)) (define-structure xlib-visual xlib-visual-interface (open scheme external-calls xlib-types) (files visual)) (define-structure xlib-region xlib-region-interface (open scheme external-calls xlib-types) (files region)) ;; all together (define-structure xlib xlib-interface (open xlib-display xlib-pixmap xlib-window xlib-drawable xlib-color xlib-colormap xlib-pixel xlib-gcontext xlib-graphics xlib-event xlib-font xlib-text xlib-property xlib-cursor xlib-wm xlib-client xlib-key xlib-error xlib-extension xlib-utility xlib-grab xlib-visual xlib-region ) (optimize auto-integrate))