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)