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/preferences.lisp

    r7804 r11466  
    6060   (editor-tab-view-item :foreign-type :id :accessor editor-tab-view-item)
    6161   (listener-tab-view-item :foreign-type :id :accessor listener-tab-view-item)
    62    (ccl-path-button :foreign-type :id :accessor ccl-path-button)
    6362   (hyperspec-path-button :foreign-type :id :accessor hyperspec-path-button)
    6463   (toolbar :foreign-type :id :accessor toolbar)
     
    157156         (#/setObject:forKey: defaults data #@"editorFont"))))))
    158157
    159 (objc:defmethod (#/selectCCLDirectory: :void) ((self preferences-window-controller)
    160                                           sender)
    161   (declare (ignore sender))
    162   (let* ((panel (#/openPanel ns:ns-open-panel))
    163          (dc (#/sharedUserDefaultsController ns:ns-user-defaults-controller))
    164          (values (#/values dc))
    165          (key #@"cclDirectory"))
    166     (#/setAllowsMultipleSelection: panel nil)
    167     (#/setCanChooseDirectories: panel t)
    168     (#/setCanChooseFiles: panel nil)
    169     (when (eql (#/runModalForDirectory:file:types: panel
    170                                                    (#/valueForKey: values key)
    171                                                    +null-ptr+
    172                                                    +null-ptr+)
    173                #$NSOKButton)
    174       ;; #/stringByStandardizingPath seems to strip trailing slashes
    175       (let* ((filename (#/stringByAppendingString:
    176                         (#/stringByStandardizingPath
    177                          (#/objectAtIndex: (#/filenames panel) 0))
    178                         #@"/")))
    179         (#/setValue:forKey: values filename key)))))
    180 
    181 
    182158;;; toolbar delegate methods
    183159
Note: See TracChangeset for help on using the changeset viewer.