ColorMenu.st
changeset 4057 a5e1c40ecf26
parent 4052 89c60a2b31ae
child 4068 b4641443cef0
--- a/ColorMenu.st	Tue Jul 12 15:07:09 2011 +0200
+++ b/ColorMenu.st	Sun Jul 17 11:13:22 2011 +0200
@@ -392,6 +392,7 @@
                 color := self color.
             ] ifFalse:[
                 holder label:(Text string:'   ').
+                model value:nil withoutNotifying:self
             ].
         ] ifFalse:[  
             anItem value == #hasNilColorHolder: ifTrue:[
@@ -410,7 +411,7 @@
         ].
     ]
 
-    "Modified: / 07-07-2011 / 18:09:06 / cg"
+    "Modified: / 17-07-2011 / 11:08:07 / cg"
 !
 
 chooseColor:aColor
@@ -703,13 +704,13 @@
     labelsAreColored    := false.
     verticalLayout      := false.
     allowSymbolicColors := false.
-    allowNilColor       := false.
+    allowNilColor       := true.
 
     self fitFirstPanel:false.
     "/ enabledChannel := ValueHolder with:false.
     self setupMenu.
 
-    "Modified: / 24-01-2011 / 19:20:55 / cg"
+    "Modified: / 17-07-2011 / 11:02:07 / cg"
 !
 
 setupMenu
@@ -818,5 +819,5 @@
 !ColorMenu class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.72 2011-07-07 16:39:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.73 2011-07-17 09:13:22 cg Exp $'
 ! !