diff --git a/scheme/xlib/xlib-interfaces.scm b/scheme/xlib/xlib-interfaces.scm index b2555e0..135fa4c 100644 --- a/scheme/xlib/xlib-interfaces.scm +++ b/scheme/xlib/xlib-interfaces.scm @@ -140,6 +140,7 @@ colormap-display alloc-color alloc-named-color + parse-color )) (define-interface xlib-pixel-interface @@ -393,6 +394,42 @@ rebind-keysym 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 (define-interface xlib-interface @@ -413,4 +450,8 @@ xlib-wm-interface xlib-client-interface xlib-key-interface + xlib-error-interface + xlib-extension-interface + xlib-utility-interface + xlib-grab-interface )) \ No newline at end of file diff --git a/scheme/xlib/xlib-packages.scm b/scheme/xlib/xlib-packages.scm index 60fc908..f3222a5 100644 --- a/scheme/xlib/xlib-packages.scm +++ b/scheme/xlib/xlib-packages.scm @@ -123,6 +123,33 @@ xlib-types) (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 (define-structure xlib xlib-interface @@ -143,5 +170,9 @@ xlib-wm xlib-client xlib-key + xlib-error + xlib-extension + xlib-utility + xlib-grab ) - (optimize auto-integrate)) \ No newline at end of file + (optimize auto-integrate))