Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory common-lisp.net:/tmp/cvs-serv22828
Modified Files: icons.lisp Log Message: The old version was probably not portable, it's now using the "portablized" version LIST-DIRECTORY that is defined in util.lisp. More important a wild pathname will be created first.
(This actually has bitten me: I've created a core image that includes my File Selector that uses the functions of the Clim Listener to display directories. This image was going to be run on other computers that have no mcclim sources installed (not to speak about installed in equivalent directories). As PRECACHE-ICONS did not work and the icons for which there are no separate DEFICON constructs have not been cached, it tried to load the icon "up-folder.xpm" in COM-SHOW-DIRECTORY. . .)
By the way, what do you think about getting rid of the pathname functions in util.lisp and depend on CL-FAD instead (the, so to speak, maintained version of Peter Seibel's :com.gigamonkeys.pathnames package)? Why shouldn't we use a nice library if it already exists? (In addition to this, the File Selector uses it as well -- particularly cl-fad:pathname-as-directory --, although it is not yet commited to the CVS.)
Date: Sun Jan 1 11:14:55 2006 Author: mretzlaff
Index: mcclim/Apps/Listener/icons.lisp diff -u mcclim/Apps/Listener/icons.lisp:1.3 mcclim/Apps/Listener/icons.lisp:1.4 --- mcclim/Apps/Listener/icons.lisp:1.3 Sun Jan 2 06:14:28 2005 +++ mcclim/Apps/Listener/icons.lisp Sun Jan 1 11:14:50 2006 @@ -64,7 +64,8 @@
(defun precache-icons () (let ((pathnames (remove-if #'directoryp - (directory (strip-filespec *icon-path*))))) + (list-directory (gen-wild-pathname + (strip-filespec *icon-path*)))))) (dolist (pn pathnames) (standard-icon (namestring (make-pathname :name (pathname-name pn) :type (pathname-type pn)))))))