[Openmcl-cvs-notifications] r13033 - /trunk/source/cocoa-ide/project.lisp

[palter at clozure.com]

Author: palter
Date: Fri Oct 16 18:00:09 2009
New Revision: 13033

Log:
Updated to compile and load under Cocotron

Modified:
    trunk/source/cocoa-ide/project.lisp

Modified: trunk/source/cocoa-ide/project.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/project.lisp (original)
+++ trunk/source/cocoa-ide/project.lisp Fri Oct 16 18:00:09 2009
@@ -134,8 +134,8 @@
                             :with-item-identifier #@"info")))
         (setf (#/label toolbar-item) #@"Get Info"
               (#/paletteLabel toolbar-item) #@"Get Info"
-              (#/image toolbar-item) (#/imageNamed: ns:ns-image
-                                                    #&NSImageNameInfo)
+              #-cocotron (#/image toolbar-item) #-cocotron (#/imageNamed: =
ns:ns-image
+                                                                          =
#&NSImageNameInfo)
               (#/target toolbar-item) self
               (#/action toolbar-item) (@selector #/showInfoPanel)
               (#/objectForKey: toolbar-items #@"info") toolbar-item))
@@ -143,8 +143,8 @@
                             :with-item-identifier #@"edit")))
         (setf (#/label toolbar-item) #@"Edit"
               (#/paletteLabel toolbar-item) #@"Edit"
-              (#/image toolbar-item) (#/imageNamed: ns:ns-image
-                                                    #&NSImageNameFontPanel)
+              #-cocotron (#/image toolbar-item) #-cocotron (#/imageNamed: =
ns:ns-image
+                                                                          =
#&NSImageNameFontPanel)
               (#/target toolbar-item) self
               (#/action toolbar-item) (@selector #/openSystem:)
               (#/objectForKey: toolbar-items #@"edit") toolbar-item))