55 lines
1.3 KiB
Scheme
55 lines
1.3 KiB
Scheme
;;; 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"))
|
|
|
|
;;; ... |