On Mon, 03 Aug 2009 21:43:44 -0700 "Fred M. Gilham" gilham@AI.SRI.COM wrote:
Fred M. Gilham wrote:
I hacked the thing a bit so it sort of works under McClim / SBCL.
Code is attached. To try it out do something along the lines of
(view-directory "/usr/local/")
(SBCL won't understand "~" as a directory path).
-- Fred Gilham
Sorry for the noise, but to make the directory listing work right, the code I sent should be changed as follows. The "read-directory" defun should be
(defun read-directory (pathname) (directory (merge-pathnames pathname (make-pathname :name :wild :type :wild :version :wild))))
With that change, the files will show up as well as directories.
One thing that doesn't work is that the scroll bar won't change when you open and close directories.
Perhaps someone else can hack it some more.
-- Fred
nice. but when i run the code, i just see a window with the text "local" and a black triangle in front of it. if i click on the triangle, the triangle rotated by 90 degrees counter-clockwise, but nothing else happens. any suggestions? i'm using sbcl 1.0.11 on linux.