Changeset 7446


Ignore:
Timestamp:
Oct 15, 2007, 2:51:21 AM (14 years ago)
Author:
gb
Message:

New "logical" string for FAKE-CFBUNDLE-PATH to replace; affects the name
of the preferences file.

FAKE-CFBUNDLE-PATH wants an argument (reversed domain thing) to prepend
to the (conditional) bundle name.

Location:
trunk/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/Info.plist-proto

    r7365 r7446  
    6767        <string>OPENMCL-NAME</string>
    6868        <key>CFBundleIdentifier</key>
    69         <string>com.clozure.OpenMCL</string>
     69        <string>OPENMCL-IDENTIFIER</string>
    7070        <key>CFBundleIconFile</key>
    7171        <string>openmcl-icon.icns</string>
  • trunk/ccl/objc-bridge/fake-cfbundle-path.lisp

    r7365 r7446  
    1111;;; before the CoreFoundation library's initialized.
    1212
    13 (defun fake-cfbundle-path (bundle-root info-plist-proto-path)
     13(defun fake-cfbundle-path (bundle-root info-plist-proto-path bundle-prefix)
    1414  (let* ((kernel-name (standard-kernel-name))
    1515         (translated-root (translate-logical-pathname bundle-root))
     
    2222                            (subseq name 0 (- len 4))
    2323                            name)))
     24         (bundle-id (concatenate 'string bundle-prefix "." bundle-name))
    2425         (needles `(("OPENMCL-KERNEL" . ,kernel-name)
    25                     ("OPENMCL-NAME" . ,bundle-name)))
     26                    ("OPENMCL-NAME" . ,bundle-name)
     27                    ("OPENMCL-IDENTIFIER" . ,bundle-id))
    2628         (executable-path (merge-pathnames
    2729                           (make-pathname :directory "Contents/MacOS/"
Note: See TracChangeset for help on using the changeset viewer.