Changeset 11035


Ignore:
Timestamp:
Oct 10, 2008, 9:40:17 AM (11 years ago)
Author:
gb
Message:

Don't set the CCL directory from preferences.

File:
1 edited

Legend:

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

    r9509 r11035  
    66    (error "This application requires features introduced in OSX 10.4."))
    77
    8 (def-cocoa-default *ccl-directory* :string "" nil #'(lambda (old new)
    9                                                       (when (equal new "") (setq new nil))
    10                                                       (unless (and new (equal old new))
    11                                                         (init-interfaces-root)
    12                                                         (ccl::replace-base-translation "ccl:"
    13                                                                                        (or new (find-ccl-directory))))))
     8(def-cocoa-default  *ccl-directory* :string "" nil
     9                    #+no #'(lambda (old new)
     10                             (when (equal new "") (setq new nil))
     11                             (unless (and new (equal old new))
     12                               (init-interfaces-root)
     13                               (ccl::replace-base-translation
     14                                "ccl:"
     15                                (or new (find-ccl-directory))))))
    1416
    1517;; If there are interfaces inside the bundle, use those rather than the ones
     
    3234        (make-pathname :directory (butlast dir 3))
    3335        path)))
     36
    3437
    3538(defmethod ccl::ui-object-do-operation ((o ns:ns-application)
     
    7982(defmethod ccl::parse-application-arguments ((a cocoa-application))
    8083  (values nil nil nil nil))
     84
    8185
    8286(defmethod toplevel-function ((a cocoa-application) init-file)
Note: See TracChangeset for help on using the changeset viewer.