[cells-gtk-cvs] CVS update: root/cells-gtk/gtk-app.lisp

[Kenny Tilton]

Update of /project/cells-gtk/cvsroot/root/cells-gtk
In directory common-lisp.net:/tmp/cvs-serv23336/cells-gtk

Modified Files:
	gtk-app.lisp 
Log Message:
Apply Andras SImon's patches from Jan 6, 2004 to get things working on CMU and ACL/Linux
Date: Tue Jan 25 07:57:27 2005
Author: ktilton

Index: root/cells-gtk/gtk-app.lisp
diff -u root/cells-gtk/gtk-app.lisp:1.7 root/cells-gtk/gtk-app.lisp:1.8
--- root/cells-gtk/gtk-app.lisp:1.7	Mon Jan  3 14:33:16 2005
+++ root/cells-gtk/gtk-app.lisp	Tue Jan 25 07:57:27 2005
@@ -107,9 +107,12 @@
   #-cmu
   (unless *gtk-loaded*
     (loop for lib in '(:gthread :glib :gobject :gdk :gtk)
-        do (assert (uffi:load-foreign-library (gtk-ffi::libname lib)
-                     :force-load #+lispworks t #-lispworks nil
-                     :module (string lib)))
+          for libname = (gtk-ffi::libname lib)
+        do #-mswindows ;; probably have to refine this for diff implementations
+          (setq libname (uffi:find-foreign-library (gtk-ffi::libname lib) "/usr/lib/"))
+          (assert (uffi:load-foreign-library libname
+                    :force-load #+lispworks t #-lispworks nil
+                    :module (string lib)))
         finally (setf *gtk-loaded* t))))
 
 (eval-when (compile load eval)