86 lines
1.4 KiB
Scheme
86 lines
1.4 KiB
Scheme
(define-structure xlib-display xlib-display-interface
|
|
(open scheme
|
|
external-calls
|
|
xlib-types)
|
|
(files display))
|
|
|
|
(define-structure xlib-window xlib-window-interface
|
|
(open scheme
|
|
external-calls
|
|
receiving
|
|
xlib-types
|
|
xlib-graphics ;; for clear-window
|
|
)
|
|
(files window))
|
|
|
|
|
|
(define-structure xlib-drawable xlib-drawable-interface
|
|
(open scheme
|
|
xlib-types
|
|
xlib-window
|
|
xlib-pixmap)
|
|
(files drawable))
|
|
|
|
|
|
(define-structure xlib-color xlib-color-interface
|
|
(open scheme
|
|
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
|
|
external-calls
|
|
receiving
|
|
xlib-types)
|
|
(files gcontext))
|
|
|
|
|
|
(define-structure xlib-pixmap xlib-pixmap-interface
|
|
(open scheme
|
|
external-calls
|
|
xlib-types)
|
|
(files)) ;;...
|
|
|
|
(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))
|
|
|
|
|
|
|
|
;; 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)) |