added the error, extension, utility and grab packages. added

parse-color to the colormap package.
This commit is contained in:
frese 2001-08-29 14:49:31 +00:00
parent aa1926d027
commit b0a1f88472
2 changed files with 73 additions and 1 deletions

View File

@ -140,6 +140,7 @@
colormap-display colormap-display
alloc-color alloc-color
alloc-named-color alloc-named-color
parse-color
)) ))
(define-interface xlib-pixel-interface (define-interface xlib-pixel-interface
@ -393,6 +394,42 @@
rebind-keysym rebind-keysym
refresh-keyboard-mapping)) refresh-keyboard-mapping))
(define-interface xlib-error-interface
(export x-error-handler
x-fatal-error-handler))
(define-interface xlib-extension-interface
(export list-extensions
query-extension))
(define-interface xlib-utility-interface
(export xlib-release-4-or-later?
xlib-release-5-or-later?
xlib-release-6-or-later?
get-default
resource-manager-string
parse-geometry
store-buffer
fetch-buffer
fetch-bytes
rotate-buffers))
(define-interface xlib-grab-interface
(export grab-pointer
ungrab-pointer
grab-button
ungrab-button
change-active-pointer-grab
grab-keyboard
ungrab-keyboard
grab-key
ungrab-key
allow-events
grab-server
ungrab-server
;; syntax: with-server-grabbed
))
;; all together ;; all together
(define-interface xlib-interface (define-interface xlib-interface
@ -413,4 +450,8 @@
xlib-wm-interface xlib-wm-interface
xlib-client-interface xlib-client-interface
xlib-key-interface xlib-key-interface
xlib-error-interface
xlib-extension-interface
xlib-utility-interface
xlib-grab-interface
)) ))

View File

@ -123,6 +123,33 @@
xlib-types) xlib-types)
(files key)) (files key))
(define-structure xlib-error xlib-error-interface
(open scheme
external-calls
xlib-types)
(files error))
(define-structure xlib-extension xlib-extension-interface
(open scheme
external-calls
xlib-types)
(files extension))
(define-structure xlib-utility xlib-utility-interface
(open scheme
external-calls
receiving
xlib-types
xlib-display
xlib-property)
(files utility))
(define-structure xlib-grab xlib-grab-interface
(open scheme
external-calls
xlib-types)
(files grab))
;; all together ;; all together
(define-structure xlib xlib-interface (define-structure xlib xlib-interface
@ -143,5 +170,9 @@
xlib-wm xlib-wm
xlib-client xlib-client
xlib-key xlib-key
xlib-error
xlib-extension
xlib-utility
xlib-grab
) )
(optimize auto-integrate)) (optimize auto-integrate))