X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/4cf1ac50714d06a4b188f3cb6f150e0e554106d0..dfa4f31424800fdb6fb63514121b9cc893269276:/pango/pango.lisp

diff --git a/pango/pango.lisp b/pango/pango.lisp
index 54bdc9c..18f5be0 100644
--- a/pango/pango.lisp
+++ b/pango/pango.lisp
@@ -1,5 +1,5 @@
 ;; Common Lisp bindings for GTK+ v2.0
-;; Copyright (C) 2001 Espen S. Johnsen <esj@stud.cs.uit.no>
+;; Copyright (C) 2001 Espen S. Johnsen <espen@users.sourceforge.org>
 ;;
 ;; This library is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU Lesser General Public
@@ -15,13 +15,19 @@
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
-;; $Id: pango.lisp,v 1.2 2001-05-29 16:56:13 espen Exp $
+;; $Id: pango.lisp,v 1.8 2005-03-06 17:26:23 espen Exp $
 
 (in-package "PANGO")
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (init-types-in-library
-   "/opt/gnome/lib/libpango.so"
-   :ignore ("_pango_fribidi_get_type"))
+  (init-types-in-library #.(concatenate 'string 
+			  (pkg-config:pkg-variable "pango" "libdir")
+		          "/libpango-1.0.so") :prefix "pango_")
+  (init-types-in-library #.(concatenate 'string 
+			  (pkg-config:pkg-variable "pango" "libdir")
+		          "/libpangoxft-1.0.so") :prefix "pango_xft")
+  (init-types-in-library #.(concatenate 'string 
+			  (pkg-config:pkg-variable "pango" "libdir")
+		          "/libpangoft2-1.0.so") :prefix "pango_fc"))
 
-  (define-types-by-introspection "Pango"))
+(define-types-by-introspection "Pango")