[Openmcl-cvs-notifications] r7572 - /trunk/ccl/cocoa-ide/preferences.lisp

[rme at clozure.com]

Author: rme
Date: Wed Oct 31 01:39:06 2007
New Revision: 7572

Log:
Use image for General prefs item

Modified:
    trunk/ccl/cocoa-ide/preferences.lisp

Modified: trunk/ccl/cocoa-ide/preferences.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/ccl/cocoa-ide/preferences.lisp (original)
+++ trunk/ccl/cocoa-ide/preferences.lisp Wed Oct 31 01:39:06 2007
@@ -203,6 +203,7 @@
       (setf item (make-instance 'ns:ns-toolbar-item
 				:with-item-identifier itemIdentifier))
       (#/setLabel: item #@"General")
+      (#/setImage: item (#/imageNamed: ns:ns-image #@"General"))
       (#/setTarget: item self)
       (#/setAction: item (@selector #/showGeneralPrefs:)))
      ((#/isEqualToString: itemIdentifier #@"appearance")