--- a/ColorMenu.st Tue Dec 04 09:15:55 2007 +0100
+++ b/ColorMenu.st Tue Dec 04 09:23:13 2007 +0100
@@ -106,7 +106,7 @@
label := labels at:idx ifAbsent:defLabel.
label := Text string:label foregroundColor:fgColor backgroundColor:aBgColor.
item := MenuItem labeled:label.
- item argument:bgColor.
+ item argument:aBgColor.
submenu addItem:item.
].
@@ -477,5 +477,5 @@
!ColorMenu class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.38 2007-12-04 08:15:55 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.39 2007-12-04 08:23:13 ca Exp $'
! !