--- a/ColorMenu.st	Wed May 14 12:48:24 2008 +0200
+++ b/ColorMenu.st	Fri May 16 18:41:53 2008 +0200
@@ -381,8 +381,8 @@
     ^ allowSymbolicColors
 !
 
-allowSymbolicColors:something
-    allowSymbolicColors := something.
+allowSymbolicColors:aBoolean
+    allowSymbolicColors := aBoolean.
 !
 
 color
@@ -419,6 +419,12 @@
     ]
 !
 
+labelsAreColored
+    "controls if labels or their backgrounds will be colored"
+
+    ^ labelsAreColored
+!
+
 labelsAreColored: aBoolean
     "sets whether labels or their backgrounds will be colored"
 
@@ -491,7 +497,7 @@
 
 initialize
     super initialize.
-    labelsAreColored    := true. "false."
+    labelsAreColored    := false.
     verticalLayout      := false.
     allowSymbolicColors := false.
 
@@ -579,5 +585,5 @@
 !ColorMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.48 2008-02-28 15:47:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.49 2008-05-16 16:41:53 cg Exp $'
 ! !