+ fixed interfaces for Xft stuff

+ added xft package
2003-10-16 16:04:16 +00:00 · 2003-10-16 16:04:16 +00:00 · a289e7a1d3
parent 02d1c8453d
commit a289e7a1d3
2 changed files with 11 additions and 6 deletions
--- 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))
+   scx-xft-draw-visual))
--- 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))