ColorMenu.st
changeset 692 fbf4503f8bc5
parent 668 774e55692416
child 806 abed5a47e545
--- 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!