Changeset 7172


Ignore:
Timestamp:
Sep 6, 2007, 7:45:39 PM (12 years ago)
Author:
mikel
Message:

added key 'CFBundleName' to write-info-plist

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/builder-utilities.lisp

    r7120 r7172  
    3737(defmethod ensure-directory-pathname ((p pathname))
    3838  (ensure-directory-pathname (namestring p)))
     39
     40;;; BASENAME path
     41;;; returns the final component of a pathname--that is, the
     42;;; filename (with type extension) if it names a file, or the
     43;;; last directory name if it names a directory
     44;;; TODO: perhaps BASENAME should check the file or directory
     45;;;       named by PATH and ensure that, if the named file
     46;;;       or directory exists, then the choice of returning
     47;;;       a file or directory is based on what the actual target
     48;;;       is, rather than on what the text of PATH suggests?
    3949
    4050(defun basename (path)
     
    119129          "The main-nib-name must be a string or NIL, not ~S" main-nib-name)
    120130  (with-autorelease-pool
    121     (let* ((type-key (%make-nsstring "CFBundlePackageType"))
     131    (let* ((bundle-name-key (%make-nsstring "CFBundleName"))
     132           (bundle-name-str (%make-nsstring name))
     133           (type-key (%make-nsstring "CFBundlePackageType"))
    122134           (type-str (%make-nsstring package-type))
    123135           (sig-key (%make-nsstring "CFBundleSignature"))
     
    135147           (app-name-str (%make-nsstring name))
    136148           (app-plist-path-str (%make-nsstring (namestring path))))
     149      (#/setValue:forKey: info-dict bundle-name-str bundle-name-key)
    137150      (#/setValue:forKey: info-dict app-name-str app-name-key)
    138151      (#/setValue:forKey: info-dict type-str type-key)
Note: See TracChangeset for help on using the changeset viewer.