Changeset 12820


Ignore:
Timestamp:
Sep 11, 2009, 9:04:30 PM (10 years ago)
Author:
palter
Message:

Arrange for the CCL icon to appear with the right name so Cocotron will
put it in the title bar of all its windows.

Location:
trunk/source
Files:
2 edited

Legend:

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

    r12702 r12820  
    9595  (require "FAKE-CFBUNDLE-PATH")
    9696  (create-ide-bundle *cocoa-application-path*)
    97   (ccl::fake-cfbundle-path *cocoa-application-path* "ccl:cocoa-ide;Info.plist-proto" "com.clozure" *cocoa-application-bundle-suffix* *cocoa-application-frameworks* *cocoa-application-libraries*))
     97  (ccl::fake-cfbundle-path *cocoa-application-path* "ccl:cocoa-ide;Info.plist-proto" "com.clozure" *cocoa-application-bundle-suffix* *cocoa-application-frameworks* *cocoa-application-libraries* #+windows-target "ccl:cocoa-ide;ide-contents;resources;openmcl-icon.ico"))
  • trunk/source/objc-bridge/fake-cfbundle-path.lisp

    r12642 r12820  
    1111;;; before the CoreFoundation library's initialized.
    1212
    13 (defun fake-cfbundle-path (bundle-root info-plist-proto-path bundle-prefix  bundle-suffix install-frameworks install-libraries)
     13(defun fake-cfbundle-path (bundle-root info-plist-proto-path bundle-prefix  bundle-suffix install-frameworks install-libraries #+windows-target icon-path)
    1414  (let* ((kernel-name (standard-kernel-name))
    1515         (translated-root (translate-logical-pathname bundle-root))
     
    7474        (dolist (framework install-frameworks)
    7575          (recursive-copy-directory framework (subdir framework executable-dir) :if-exists :overwrite))))
     76    #+windows-target
     77    (copy-file icon-path (merge-pathnames
     78                          (make-pathname :directory "Contents/Resources/"
     79                                         :name bundle-name
     80                                         :type "ico")
     81                          translated-root)
     82               :preserve-attributes t :if-exists :supersede)
    7683    (setenv "CFProcessPath" (native-translated-namestring executable-path))))
Note: See TracChangeset for help on using the changeset viewer.