--- a/ProgressIndicator.st	Fri Jun 05 18:37:49 1998 +0200
+++ b/ProgressIndicator.st	Sat Jun 06 19:49:15 1998 +0200
@@ -450,12 +450,12 @@
     |newPercentage|
 
     newPercentage := ((aNumber max:0) min:100) rounded.
-    newPercentage ~~ percentage ifTrue:[
-	percentage := newPercentage.
-	shown ifTrue:[self invalidate].
+    newPercentage ~= percentage ifTrue:[
+        percentage := newPercentage.
+        shown ifTrue:[self invalidateRepairNow:true].
     ]
 
-    "Modified: 29.3.1997 / 16:08:00 / cg"
+    "Modified: / 6.6.1998 / 19:43:56 / cg"
 ! !
 
 !ProgressIndicator methodsFor:'accessing - behavior'!
@@ -494,10 +494,11 @@
         bgColor := aColor.
 
         shown ifTrue:[
-            self invalidate
+            self invalidateRepairNow:true
         ]
     ].
 
+    "Modified: / 6.6.1998 / 19:28:27 / cg"
 !
 
 foregroundColor 
@@ -512,14 +513,14 @@
     "set the percentage displays foreground color"
 
     aColor ~~ fgColor ifTrue:[
-	fgColor := aColor.
+        fgColor := aColor.
 
-	shown ifTrue:[
-	    self invalidate
-	]
+        shown ifTrue:[
+            self invalidateRepairNow:true
+        ]
     ].
 
-    "Modified: 3.4.1997 / 21:14:32 / cg"
+    "Modified: / 6.6.1998 / 19:28:34 / cg"
 !
 
 showPercentage
@@ -535,10 +536,10 @@
 
     showPercentage := aBoolean.
     shown ifTrue:[
-	self invalidate
+        self invalidateRepairNow:true
     ].
 
-    "Modified: 29.3.1997 / 16:27:37 / cg"
+    "Modified: / 6.6.1998 / 19:28:44 / cg"
 ! !
 
 !ProgressIndicator methodsFor:'change & update'!
@@ -571,7 +572,7 @@
 
     rx := (w * percentage / 100) rounded.
 
-    self clear.
+"/    self clear.
 
     self paint:bgColor.
     self fillRectangleX:m+rx y:m width:w-rx height:h.
@@ -600,7 +601,7 @@
         ]
     ]
 
-    "Modified: / 18.4.1998 / 02:34:00 / cg"
+    "Modified: / 6.6.1998 / 19:45:08 / cg"
 !
 
 sizeChanged:how
@@ -749,5 +750,5 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.22 1998-04-18 12:31:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.23 1998-06-06 17:48:46 cg Exp $'
 ! !