--- a/ColorMenu.st	Tue Jul 08 11:17:36 2014 +0200
+++ b/ColorMenu.st	Tue Jul 08 16:46:49 2014 +0200
@@ -180,6 +180,8 @@
 !
 
 userDefinedSubmenu
+    <resource: #programMenu >
+
     "answer the menu entry under which the userdefined color entries are placed"
 
     |menu submenu item icon|
@@ -277,6 +279,8 @@
 !ColorMenu class methodsFor:'private'!
 
 colorMenu
+    <resource: #programMenu >
+
     |menu menuItem subItem baseColor color label getColSel submenu colorId|
 
     "
@@ -338,6 +342,8 @@
 !
 
 resolveMenuItem:aMenuItem value:aValue labelsAreColored:labelsAreColored
+    <resource: #programMenu >
+
     |menuItem label color fgColor submenu|
 
     label    := aMenuItem rawLabel ? ''.
@@ -356,8 +362,7 @@
                 fgColor := color contrastingBlackOrWhite.
                 label := Text string:label foregroundColor:fgColor backgroundColor:color.
             ].
-            menuItem label:label.
-            menuItem itemValue:aValue.
+            menuItem label:label itemValue:aValue.
         ].
         ^ menuItem
     ].
@@ -666,6 +671,8 @@
 !ColorMenu methodsFor:'initialization'!
 
 colorHistorySubmenu
+    <resource: #programMenu >
+
     |menu|
 
     RecentlyUsedColors isEmptyOrNil ifTrue:[^ nil].
@@ -829,6 +836,6 @@
 !ColorMenu class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.78 2013-08-31 17:40:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.79 2014-07-08 14:46:49 cg Exp $'
 ! !