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

parse-color to the colormap package.

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
 		      ))

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))
+  (optimize auto-integrate))