--- a/ColorMenu.st Tue Jan 27 18:01:35 1998 +0100
+++ b/ColorMenu.st Tue Jan 27 18:40:10 1998 +0100
@@ -220,8 +220,8 @@
]
ifFalse:
[
- holder label: item label.
color := item argument.
+ holder label:(Text string:' ' emphasis:(#backgroundColor->color)).
].
model notNil ifTrue:[model value:color]
]
@@ -372,6 +372,6 @@
!ColorMenu class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.9 1998-01-19 11:36:41 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.10 1998-01-27 17:40:10 tz Exp $'
! !
ColorMenu initialize!