[Openmcl-cvs-notifications] r12836 - /trunk/source/cocoa-ide/build-application.lisp

[palter at clozure.com]

Author: palter
Date: Mon Sep 14 14:10:11 2009
New Revision: 12836

Log:
Add an :ALTCONSOLE keyword argument (default T) to BUILD-APPLICATION

Modified:
    trunk/source/cocoa-ide/build-application.lisp

Modified: trunk/source/cocoa-ide/build-application.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/build-application.lisp (original)
+++ trunk/source/cocoa-ide/build-application.lisp Mon Sep 14 14:10:11 2009
@@ -40,7 +40,8 @@
                                         ; into the Info.plist on the "NSMa=
inNibFile" key
                           (application-class 'gui::cocoa-application)
                           (private-frameworks nil)
-                          (toplevel-function nil))
+                          (toplevel-function nil)
+                          (altconsole t))
 =

   (let* ((info-plist (or info-plist ; if the user supplied one then we use=
 it
                          (if copy-ide-resources =

@@ -74,6 +75,9 @@
             (copy-nibfile n dest :if-exists :overwrite)))))
     ;; copy any private frameworks into the bundle
     (copy-private-frameworks private-frameworks app-bundle)
+    ;; install the AltConsole application if requested
+    (when altconsole
+      (install-altconsole app-bundle))
     ;; save the application image into the bundle
     (save-application image-path
                       :application-class application-class