added the key package.

scheme/xlib/xlib-interfaces.scm

@@ -381,6 +381,18 @@
 	  set-icon-sizes!
 	  ))
 
+(define-interface xlib-key-interface
+  (export display-min-keycode
+	  display-max-keycode
+	  display-keysyms-per-keycode
+	  string->keysym
+	  keysym->string
+	  keycode->keysym
+	  keysym->keycode
+	  lookup-string
+	  rebind-keysym
+	  refresh-keyboard-mapping))
+
 ;; all together
 
 (define-interface xlib-interface
@@ -400,4 +412,5 @@
 		      xlib-property-interface
 		      xlib-wm-interface
 		      xlib-client-interface
+		      xlib-key-interface
 		      ))

scheme/xlib/xlib-packages.scm

@@ -117,6 +117,12 @@
 	)
   (files client))
 
+(define-structure xlib-key xlib-key-interface
+  (open scheme
+	external-calls
+	xlib-types)
+  (files key))
+
 ;; all together
 
 (define-structure xlib xlib-interface
@@ -136,5 +142,6 @@
 	xlib-cursor
 	xlib-wm
 	xlib-client
+	xlib-key
 	)
   (optimize auto-integrate))