89 lines
2.9 KiB
Scheme
89 lines
2.9 KiB
Scheme
;;; Helper functions
|
|
|
|
(define-interface xlib-helper-interface
|
|
(export 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-internal-types-interface
|
|
(export
|
|
|
|
display? make-display display-Xdisplay display-after-function
|
|
display-set-after-function! close-display display-message-inport
|
|
special-time:current-time
|
|
|
|
window? make-window destroy-window window-Xwindow window-display
|
|
window-tag window-set-tag!
|
|
special-window:none special-window:pointer-window
|
|
special-window:input-focus special-window:pointer-root
|
|
|
|
drawable? make-drawable drawable-abstraction drawable-display
|
|
drawable-Xobject
|
|
|
|
color? internal-make-color extract-rgb-values create-color color-Xcolor
|
|
|
|
colormap? make-colormap free-colormap colormap-display colormap-Xcolormap
|
|
|
|
pixel? make-pixel pixel-Xpixel pixel-colormap
|
|
|
|
gcontext? make-gcontext free-gcontext gcontext? gcontext-display
|
|
gcontext-Xgcontext special-gcontext:none
|
|
|
|
pixmap? make-pixmap free-pixmap pixmap-Xpixmap pixmap-display
|
|
|
|
font? make-font font-Xfont font-Xfontstruct font-display font-name
|
|
load-font open-font unload-font close-font
|
|
special-font:none
|
|
|
|
atom? make-atom atom-Xatom intern-atom special-atom:none
|
|
|
|
cursor? make-cursor cursor-display cursor-Xcursor free-cursor
|
|
|
|
visual? make-visual visual-Xvisual
|
|
|
|
region? make-region destroy-region region-Xregion
|
|
|
|
((event-mask) :syntax) event-mask-all-events
|
|
integer->event-mask event-mask->integer
|
|
|
|
integer->state-set state-set->integer
|
|
integer->button button->integer
|
|
integer->is-hint? is-hint?->integer
|
|
integer->notify-mode notify-mode->integer
|
|
integer->notify-detail notify-detail->integer
|
|
integer->visibility-state visibility-state->integer
|
|
integer->place place->integer
|
|
integer->property-state property-state->integer
|
|
integer->colormap-state colormap-state->integer
|
|
integer->mapping-request mapping-request->integer
|
|
|
|
((state state-set button notify-mode notify-detail
|
|
visibility-state place property-state colormap-state
|
|
mapping-request bit-gravity gravity backing-store) :syntax)
|
|
|
|
gravity->integer integer->gravity
|
|
|
|
make-enum-alist->integer+vector
|
|
make-integer+vector->enum-alist
|
|
make-integer->enum-set make-enum-set->integer
|
|
|
|
set-window-attribute-alist->integer+vector
|
|
((set-window-attribute make-set-window-attribute-alist) :syntax)
|
|
|
|
((window-change make-window-change-alist stack-mode) :syntax)
|
|
window-change-alist->integer+vector integer+vector->window-change-alist
|
|
|
|
((window-attribute make-window-attribute-alist) :syntax)
|
|
integer+vector->window-attribute-alist
|
|
|
|
((window-class map-state) :syntax)
|
|
|
|
((byte-order bit-order) :syntax)
|
|
integer->byte-order integer->bit-order
|
|
|
|
((fill-rule) :syntax)
|
|
fill-rule->integer integer->fill-rule
|
|
|
|
))
|