--- a/ProgressIndicator.st	Sat Mar 29 16:14:22 1997 +0100
+++ b/ProgressIndicator.st	Sat Mar 29 16:27:58 1997 +0100
@@ -482,8 +482,11 @@
     "set the percentage displays foreground color"
 
     fgColor := aColor
+    shown ifTrue:[
+        self invalidate
+    ].
 
-    "Modified: 29.3.1997 / 16:08:49 / cg"
+    "Modified: 29.3.1997 / 16:27:41 / cg"
 !
 
 showPercentage
@@ -497,9 +500,12 @@
 showPercentage:aBoolean
     "set/clear the flag controlling if the percentage is to be shown numerically"
 
-    showPercentage := aBoolean
+    showPercentage := aBoolean.
+    shown ifTrue:[
+        self invalidate
+    ].
 
-    "Modified: 29.3.1997 / 16:09:07 / cg"
+    "Modified: 29.3.1997 / 16:27:37 / cg"
 ! !
 
 !ProgressIndicator methodsFor:'change & update'!
@@ -672,5 +678,5 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.13 1997-03-29 15:14:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.14 1997-03-29 15:27:58 cg Exp $'
 ! !