--- a/ColorMenu.st	Mon May 18 16:41:12 2009 +0200
+++ b/ColorMenu.st	Tue May 19 18:22:00 2009 +0200
@@ -439,6 +439,10 @@
   ^ self itemAt:#selection
 !
 
+contents
+    ^ self color
+!
+
 labelsAreColored
     "controls if labels or their backgrounds will be colored"
 
@@ -646,5 +650,5 @@
 !ColorMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.57 2008-08-08 13:24:46 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.58 2009-05-19 16:22:00 cg Exp $'
 ! !