Ignore:
Timestamp:
Dec 6, 2008, 9:25:30 AM (11 years ago)
Author:
rme
Message:

Get rid of the now-useless UI for setting the CCL directory as a
Cocoa preference (ticket:332).

File:
1 edited

Legend:

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

    r7804 r11466  
    114114        (#/setValue:forKey: values filename #@"hyperspecFileURLString")))))
    115115
    116 (objc:defmethod (#/selectCCLdirectory: :void)
    117     ((self lisp-preferences-window-controller)
    118      sender)
    119   (declare (ignore sender))
    120   (let* ((panel (make-instance 'ns:ns-open-panel))
    121          (values (#/values (#/sharedUserDefaultsController ns:ns-user-defaults-controller))))
    122     (#/setAllowsMultipleSelection: panel nil)
    123     (#/setCanChooseDirectories: panel t)
    124     (#/setCanChooseFiles: panel nil)
    125     (when (eql
    126            (#/runModalForDirectory:file:types:
    127             panel
    128             (#/valueForKey: values #@"cclDirectory")
    129             +null-ptr+
    130             +null-ptr+)
    131            #$NSOKButton)
    132       ;; #/stringByStandardizingPath seems to strip trailing slashes
    133       (let* ((filename (#/stringByAppendingString:
    134                         (#/stringByStandardizingPath (#/objectAtIndex: (#/filenames panel) 0))
    135                          #@"/")))
    136         (#/setValue:forKey: values filename #@"cclDirectory")))))
    137 
    138 
    139 
    140116(objc:defmethod #/sharedPanel ((self +lisp-preferences-panel))
    141117  (cond (*lisp-preferences-panel*)
Note: See TracChangeset for help on using the changeset viewer.