Update of /cvsroot/scsh/scx/scheme/xlib
In directory usw-pr-cvs1:/tmp/cvs-serv12581
Modified Files:
Tag: 1.11
xlib-type-interfaces.scm
Log Message:
mini change
--- NEW FILE ---
;;; Helper functions
(define-interface xlib-helper-interface
(export named-args->alist
none-resource?
none-resource
alist-split
vector-map!))
;; these are internal interfaces that describe the construction and access
;; functions to all the new datatypes. They are not needed by the user
(define-interface xlib-display-type-interface
(export make-display
display?
display-Xdisplay
display-after-function
display-set-after-function!
close-display
display-message-inport))
(define-interface xlib-window-type-interface
(export make-window
destroy-window
window?
window-Xwindow
window-display))
(define-interface xlib-drawable-type-interface
(export drawable?
drawable-abstraction
drawable-display
drawable-Xobject))
(define-interface xlib-color-type-interface
(export internal-make-color
create-color
color?
color-Xcolor))
(define-interface xlib-colormap-type-interface
(export make-colormap
colormap?
free-colormap
colormap-display
colormap-Xcolormap))
(define-interface xlib-pixel-type-interface
(export make-pixel
pixel?
pixel-Xpixel))
(define-interface xlib-gcontext-type-interface
(export make-gcontext
free-gcontext
gcontext?
gcontext-display
gcontext-Xgcontext))
(define-interface xlib-pixmap-type-interface
(export make-pixmap
free-pixmap
pixmap?
pixmap-Xpixmap
pixmap-display))
(define-interface xlib-event-type-interface
(export event?
event-type
event-args))
;; all in one
(define-interface xlib-types-interface
(compound-interface
xlib-helper-interface
xlib-display-type-interface
xlib-window-type-interface
xlib-drawable-type-interface
xlib-color-type-interface
xlib-colormap-type-interface
xlib-pixel-type-interface
xlib-gcontext-type-interface
xlib-pixmap-type-interface
xlib-event-type-interface
))
|