Changeset 11466


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).

Location:
trunk/source/cocoa-ide
Files:
5 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*)
  • trunk/source/cocoa-ide/ide-contents/Resources/English.lproj/preferences.nib/classes.nib

    r7567 r11466  
    88                        <key>ACTIONS</key>
    99                        <dict>
    10                                 <key>selectCCLDirectory</key>
    11                                 <string>id</string>
    1210                                <key>showFontPanel</key>
    1311                                <string>id</string>
     
    2018                        <dict>
    2119                                <key>appearancePrefs</key>
    22                                 <string>id</string>
    23                                 <key>cclPathButton</key>
    2420                                <string>id</string>
    2521                                <key>documentationPrefs</key>
  • trunk/source/cocoa-ide/ide-contents/Resources/English.lproj/preferences.nib/info.nib

    r7804 r11466  
    44<dict>
    55        <key>IBFramework Version</key>
    6         <string>629</string>
     6        <string>677</string>
    77        <key>IBOldestOS</key>
    8         <integer>5</integer>
     8        <integer>4</integer>
    99        <key>IBOpenObjects</key>
    1010        <array>
    11                 <integer>1501086</integer>
     11                <integer>1500903</integer>
     12                <integer>1500915</integer>
     13                <integer>1500856</integer>
    1214        </array>
    1315        <key>IBSystem Version</key>
    14         <string>9B18</string>
     16        <string>9F33</string>
    1517        <key>targetFramework</key>
    1618        <string>IBCocoaFramework</string>
  • 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.