[mcclim-devel] is there a tree-panel available?
Nikolaus Demmel
demmeln at in.tum.de
Tue Aug 4 10:17:58 UTC 2009
Am 04.08.2009 um 11:49 schrieb Alexander Ekart:
> On Mon, 03 Aug 2009 21:43:44 -0700
> "Fred M. Gilham" <gilham at 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.
>
It works fine over here (sbcl 1.0.29 + macos + latest mcclim).
Tried a different directory? Maybe update SBCL (1.0.30 is latest).
Regards,
Niko
More information about the mcclim-devel
mailing list