--- a/ColorMenu.st	Mon May 19 16:51:16 2008 +0200
+++ b/ColorMenu.st	Mon May 19 18:44:02 2008 +0200
@@ -423,6 +423,12 @@
     ]
 !
 
+colorHolder
+    "returns the item which keeps the selected color in its label"
+
+  ^ self itemAt:#selection
+!
+
 labelsAreColored
     "controls if labels or their backgrounds will be colored"
 
@@ -566,13 +572,7 @@
     ]
 ! !
 
-!ColorMenu methodsFor:'private'!
-
-colorHolder
-    "returns the item which keeps the selected color in its label"
-
-  ^ self itemAt:#selection
-!
+!ColorMenu methodsFor:'user actions'!
 
 openColorEditDialog
     |defineColorDialog|
@@ -596,5 +596,5 @@
 !ColorMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.51 2008-05-19 13:41:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.52 2008-05-19 16:44:02 cg Exp $'
 ! !