From 9e1bddd65839a12ebe35440ff58b851df122eb26 Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Wed, 22 Aug 2001 11:51:35 +0000
Subject: [PATCH] added the key package.

---
 scheme/xlib/xlib-interfaces.scm | 13 +++++++++++++
 scheme/xlib/xlib-packages.scm   |  7 +++++++
 2 files changed, 20 insertions(+)

diff --git a/scheme/xlib/xlib-interfaces.scm b/scheme/xlib/xlib-interfaces.scm
index bf8fc10..b2555e0 100644
--- a/scheme/xlib/xlib-interfaces.scm
+++ b/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
 		      ))
\ No newline at end of file
diff --git a/scheme/xlib/xlib-packages.scm b/scheme/xlib/xlib-packages.scm
index 58b2bd6..60fc908 100644
--- a/scheme/xlib/xlib-packages.scm
+++ b/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))
\ No newline at end of file