--- a/UpDownButton.st	Sat Jun 06 19:51:49 1998 +0200
+++ b/UpDownButton.st	Sat Jun 06 19:54:02 1998 +0200
@@ -137,8 +137,12 @@
     aColor ~~ upButton backgroundColor ifTrue:[
         upButton backgroundColor:aColor.
         downButton backgroundColor:aColor.
-        shown ifTrue:[self invalidate]
+        shown ifTrue:[
+            self invalidateRepairNow:true
+        ]
     ]
+
+    "Modified: / 6.6.1998 / 19:53:50 / cg"
 !
 
 foregroundColor
@@ -154,8 +158,12 @@
     aColor ~~ upButton foregroundColor ifTrue:[
         upButton foregroundColor:aColor.
         downButton foregroundColor:aColor.
-        shown ifTrue:[self invalidate]
+        shown ifTrue:[
+            self invalidateRepairNow:true
+        ]
     ]
+
+    "Modified: / 6.6.1998 / 19:53:44 / cg"
 !
 
 model:aModel
@@ -301,5 +309,5 @@
 !UpDownButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/UpDownButton.st,v 1.10 1998-05-22 12:09:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/UpDownButton.st,v 1.11 1998-06-06 17:54:02 cg Exp $'
 ! !