Changeset 12820 for trunk/source/objc-bridge/fake-cfbundle-path.lisp

Timestamp:

Sep 11, 2009, 9:04:30 PM (11 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.

File:

• trunk/source/objc-bridge/fake-cfbundle-path.lisp (modified) (2 diffs)

trunk/source/objc-bridge/fake-cfbundle-path.lisp

@@ -11 +11 @@
 ;;; before the CoreFoundation library's initialized.
 
-(defun fake-cfbundle-path (bundle-root info-plist-proto-path bundle-prefix  bundle-suffix install-frameworks install-libraries)
+(defun fake-cfbundle-path (bundle-root info-plist-proto-path bundle-prefix  bundle-suffix install-frameworks install-libraries #+windows-target icon-path)
   (let* ((kernel-name (standard-kernel-name))
          (translated-root (translate-logical-pathname bundle-root))
@@ -74 +74 @@
         (dolist (framework install-frameworks)
           (recursive-copy-directory framework (subdir framework executable-dir) :if-exists :overwrite))))
+    #+windows-target
+    (copy-file icon-path (merge-pathnames
+                          (make-pathname :directory "Contents/Resources/"
+                                         :name bundle-name
+                                         :type "ico")
+                          translated-root)
+               :preserve-attributes t :if-exists :supersede)
     (setenv "CFProcessPath" (native-translated-namestring executable-path))))