;;; The display structure

(define-interface xlib-display-interface
  (export display?
	  open-display
	  close-display
	  display-after-function 
	  after-function ;; compatibility with Elk, same as above
	  display-set-after-function! 
	  set-after-function! ;; compatibility with Elk, same as above
	  display-default-root-window
	  display-root-window ;; same as above
	  display-default-colormap
	  display-colormap ;; same as above
	  display-default-gcontext
	  display-default-depth
	  display-default-screen-number
	  display-cells
	  display-planes
	  display-string
	  display-vendor
	  display-protocol-version
	  display-screen-count
	  display-image-byte-order
	  display-bitmap-unit
	  display-bitmap-bit-order
	  display-bitmap-pad
	  display-width
	  display-height
	  display-width-mm
	  display-height-mm
	  display-motion-buffer-size
	  display-flush-output
	  display-wait-output
	  display-no-op
	  no-op ;; compatibility with Elk, same as above
	  display-list-depths
	  list-depths ;; compatibility with Elk, same as above
	  display-list-pixmap-formats
	  list-pixmap-formats ;; compatibility with Elk, same as above
	  synchronize

	  ))

(define-structure xlib-display xlib-display-interface
  (open scsh
	scheme
	define-record-types
	weak
	general-tables
;	xlib-window
	primitives)
  (files "display.scm"))

;;; ...