scx/scheme/xlib/xlib-packages.scm

(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))