Changeset 11036


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

If *standalone-cocoa-ide*, set the ccl directory to the parent of
the bundle in #/initialize.

File:
1 edited

Legend:

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

    r9247 r11036  
    2222    (#/registerDefaults: domain dict)
    2323    (#/release dict)
    24     (update-cocoa-defaults)))
     24    (update-cocoa-defaults)
     25    (when *standalone-cocoa-ide*
     26      (init-ccl-directory-for-ide))))
     27
     28(defun init-ccl-directory-for-ide ()
     29  (let* ((bundle-path (#/bundlePath (#/mainBundle ns:ns-bundle)))
     30         (parent (#/stringByDeletingLastPathComponent bundle-path))
     31         (path (ccl::ensure-directory-pathname
     32                (lisp-string-from-nsstring parent))))
     33    (ccl::replace-base-translation "ccl" path)))
     34         
    2535
    2636(objc:defmethod (#/applicationWillFinishLaunching: :void)
Note: See TracChangeset for help on using the changeset viewer.