--- a/ColorMenu.st	Sat Jun 12 16:37:43 1999 +0200
+++ b/ColorMenu.st	Tue Jun 15 14:31:04 1999 +0200
@@ -130,7 +130,7 @@
 colorMenu:labelAreColored value:aValue
     "returns a color menu
     "
-    |menu fgOrBg mainCol style e|
+    |menu mainCol style e|
 
     menu  := Menu new.
     style := (labelAreColored == false) 
@@ -643,5 +643,5 @@
 !ColorMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.18 1999-05-08 21:48:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.19 1999-06-15 12:31:04 cg Exp $'
 ! !