Changeset 7440


Ignore:
Timestamp:
Oct 14, 2007, 8:57:27 AM (14 years ago)
Author:
gb
Message:

Try to ensure that the directory namestring returned from #/selectCCLdirectory
has a trailing slash (see ticket:113).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/cocoa-prefs.lisp

    r7365 r7440  
    133133            +null-ptr+)
    134134           #$NSOKButton)
    135       (let* ((filename (#/pathWithComponents: ns:ns-string
    136                                               (#/arrayWithObjects:
    137                                                ns:ns-array
    138                                                (#/objectAtIndex: (#/filenames panel) 0)
    139                                                #@""
    140                                                +null-ptr+))))
     135      ;; #/stringByStandardizingPath seems to strip trailing slashes
     136      (let* ((filename (#/stringByAppendingString:
     137                        (#/stringByStandardizingPath (#/objectAtIndex: (#/filenames panel) 0))
     138                         #@"/")))
    141139        (#/setValue:forKey: values filename #@"cclDirectory")))))
    142140
Note: See TracChangeset for help on using the changeset viewer.