Changeset 11466 for trunk/source/cocoa-ide/cocoa-prefs.lisp
- Timestamp:
- Dec 6, 2008, 9:25:30 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/cocoa-ide/cocoa-prefs.lisp
r7804 r11466 114 114 (#/setValue:forKey: values filename #@"hyperspecFileURLString"))))) 115 115 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 (eql126 (#/runModalForDirectory:file:types:127 panel128 (#/valueForKey: values #@"cclDirectory")129 +null-ptr+130 +null-ptr+)131 #$NSOKButton)132 ;; #/stringByStandardizingPath seems to strip trailing slashes133 (let* ((filename (#/stringByAppendingString:134 (#/stringByStandardizingPath (#/objectAtIndex: (#/filenames panel) 0))135 #@"/")))136 (#/setValue:forKey: values filename #@"cclDirectory")))))137 138 139 140 116 (objc:defmethod #/sharedPanel ((self +lisp-preferences-panel)) 141 117 (cond (*lisp-preferences-panel*)
Note: See TracChangeset
for help on using the changeset viewer.