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