From 6c13a8812dd9cacc06f19f871d999239599be31f Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Tue, 21 Aug 2001 15:15:03 +0000
Subject: [PATCH] added all new types and packages (font, cursor, text,
 property, wm, client, font-type, atom-type, cursor-type).

---
 scheme/xlib/xlib-type-interfaces.scm | 31 +++++++++++++++++++++++++++-
 1 file changed, 30 insertions(+), 1 deletion(-)

diff --git a/scheme/xlib/xlib-type-interfaces.scm b/scheme/xlib/xlib-type-interfaces.scm
index 3fe21b0..8c1f405 100644
--- a/scheme/xlib/xlib-type-interfaces.scm
+++ b/scheme/xlib/xlib-type-interfaces.scm
@@ -34,6 +34,7 @@
 
 (define-interface xlib-color-type-interface
   (export internal-make-color
+	  extract-rgb-values
 	  create-color
 	  color?
 	  color-Xcolor))
@@ -65,10 +66,35 @@
 	  pixmap-display))
 
 (define-interface xlib-event-type-interface
-  (export event?
+  (export make-event
+	  event?
 	  event-type
 	  event-args))
 
+(define-interface xlib-font-type-interface
+  (export make-font
+	  font?
+	  font-Xfont
+	  font-Xfontstruct
+	  font-display
+	  font-name
+	  load-font
+	  open-font
+	  unload-font
+	  close-font))
+
+(define-interface xlib-atom-type-interface
+  (export atom?
+	  make-atom
+	  atom-Xatom
+	  intern-atom))
+
+(define-interface xlib-cursor-type-interface
+  (export cursor?
+	  make-cursor
+	  cursor-display
+	  cursor-Xcursor
+	  free-cursor))
 
 ;; all in one
 
@@ -84,4 +110,7 @@
    xlib-gcontext-type-interface
    xlib-pixmap-type-interface
    xlib-event-type-interface
+   xlib-font-type-interface
+   xlib-atom-type-interface
+   xlib-cursor-type-interface
    ))
\ No newline at end of file