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

Modified Files: load.lisp Log Message: Push :libcellsgtk onto *features* when it can be found. Date: Sat Feb 26 23:46:42 2005 Author: pdenno

Index: root/load.lisp diff -u root/load.lisp:1.5 root/load.lisp:1.6 --- root/load.lisp:1.5 Tue Jan 25 16:57:31 2005 +++ root/load.lisp Sat Feb 26 23:46:40 2005 @@ -1,6 +1,6 @@ (in-package :cl-user)

-#| Step One: Get ASDF into the game. +#| Step 1: Get ASDF into the game.

Obviously not necessary if you always have that loaded. Note that you will have to adjust the pathname to point to where you @@ -21,11 +21,26 @@ (make-pathname :name "config" :type "lisp") *load-pathname*))

-;;;; Step 3: Compile and load via ASDF +;;; Step 3: (completely optional) build libcellsgtk.so (see Makefile) and +;;; place it where the other gtk libraries will be found. + +#+mswindows +(warn "MSWindows users: If you want to use libcellsgtk.so see gtk-ffi/Makefile.") + +#-mswindows +(let ((libpath (cond ((directory "/usr/lib/libgtk*") "/usr/lib/") + ((directory "/opt/gnome/lib/libgtk*") "/opt/gnome/lib/")))) + (if libpath + (if (probe-file (concatenate 'string libpath "libcellsgtk.so")) + (pushnew :libcellsgtk *features*) + (warn "libcellsgtk.so not found. Just a few capabilities will be unavailable.")) + (error "Cannot find a path containing libgtk"))) + +;;;; Step 4: Compile and load via ASDF ; these are handy when one is first working up to getting things to build at all ; but the "test-gtk" ASDF has dependencies which will load everything else, so ; you can just execute that. -; + ;(Asdf:operate 'asdf:load-op :utils-kt :force nil) ;(Asdf:operate 'asdf:load-op :cells :force nil) ;(Asdf:operate 'asdf:load-op :hello-c :force nil) @@ -34,7 +49,6 @@

(Asdf:operate 'asdf:load-op :test-gtk :force nil)

-#+Step-4 - +#+Step-5 (test-gtk::gtk-demo)