147 lines
2.5 KiB
Scheme
147 lines
2.5 KiB
Scheme
(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
|
|
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))
|
|
|
|
;; 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
|
|
)
|
|
(optimize auto-integrate)) |