From a289e7a1d3d28e44e60d3fe046f98134797095b2 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Thu, 16 Oct 2003 16:04:16 +0000
Subject: [PATCH] + fixed interfaces for Xft stuff + added xft package

---
 scheme/libs/libs-interfaces.scm | 8 +++-----
 scheme/libs/libs-packages.scm   | 9 ++++++++-
 2 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/scheme/libs/libs-interfaces.scm b/scheme/libs/libs-interfaces.scm
index a0d21b8..a46771e 100644
--- a/scheme/libs/libs-interfaces.scm
+++ b/scheme/libs/libs-interfaces.scm
@@ -30,11 +30,9 @@
    scx-xft-objectset-add
    scx-xft-list-fonts-pattern-objects
    scx-xft-version-major
-   scx-xft-version-minor))
-
-(define-interface xft-v2-additions-interface
-  (export
+   scx-xft-version-minor
+   ;; Xft version 2
    scx-xft-draw-display
    scx-xft-draw-drawable
    scx-xft-draw-colormap
-   scx-xft-draw-visual))
\ No newline at end of file
+   scx-xft-draw-visual))
diff --git a/scheme/libs/libs-packages.scm b/scheme/libs/libs-packages.scm
index 3b8ddf9..d109af7 100644
--- a/scheme/libs/libs-packages.scm
+++ b/scheme/libs/libs-packages.scm
@@ -1,8 +1,15 @@
 (define-structure xpm xpm-interface
   (open scheme
 	xlib
-	xlib-internal-types
 	signals primitives
 	external-calls
 	finite-types)
   (files xpm))
+
+(define-structure xft xft-interface
+  (open scheme
+	xlib
+	signals
+	define-record-types
+	external-calls)
+  (files xft))
\ No newline at end of file