Changeset 11466 for trunk/source/cocoa-ide/cocoa-prefs.lisp

Timestamp:

Dec 6, 2008, 9:25:30 AM (12 years ago)

Author:

rme

Message:

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

File:

• trunk/source/cocoa-ide/cocoa-prefs.lisp (modified) (1 diff)

trunk/source/cocoa-ide/cocoa-prefs.lisp

@@ -114 +114 @@
         (#/setValue:forKey: values filename #@"hyperspecFileURLString")))))
 
-(objc:defmethod (#/selectCCLdirectory: :void)
-    ((self lisp-preferences-window-controller)
-     sender)
-  (declare (ignore sender))
-  (let* ((panel (make-instance 'ns:ns-open-panel))
-         (values (#/values (#/sharedUserDefaultsController ns:ns-user-defaults-controller))))
-    (#/setAllowsMultipleSelection: panel nil)
-    (#/setCanChooseDirectories: panel t)
-    (#/setCanChooseFiles: panel nil)
-    (when (eql
-           (#/runModalForDirectory:file:types:
-            panel
-            (#/valueForKey: values #@"cclDirectory")
-            +null-ptr+
-            +null-ptr+)
-           #$NSOKButton)
-      ;; #/stringByStandardizingPath seems to strip trailing slashes
-      (let* ((filename (#/stringByAppendingString:
-                        (#/stringByStandardizingPath (#/objectAtIndex: (#/filenames panel) 0))
-                         #@"/")))
-        (#/setValue:forKey: values filename #@"cclDirectory")))))
-
-
-
 (objc:defmethod #/sharedPanel ((self +lisp-preferences-panel))
   (cond (*lisp-preferences-panel*)