[mcclim-cvs] CVS update: mcclim/Apps/Listener/icons.lisp

[Max-Gerd Retzlaff]

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)))))))