--- a/ProgressIndicator.st	Tue Sep 12 12:58:11 2000 +0200
+++ b/ProgressIndicator.st	Tue Sep 12 13:15:11 2000 +0200
@@ -405,11 +405,16 @@
     p showProgressOf:[:progressValue :currentAction |
         |scaler|
 
-        scaler := [:scaledValue | 
-                        progressValue value:( scaledValue - startValue
-                                              / (endValue-startValue)
-                                              * 100).
-                        currentAction value:aLabel.
+        scaler := [:scaledValue | |newPercentage oldPercentage oldLabel|
+                        oldPercentage := progressValue value.
+                        newPercentage := (scaledValue - startValue) / (endValue-startValue) * 100.
+                        newPercentage ~= oldPercentage ifTrue:[
+                            progressValue value:newPercentage.
+                        ].
+                        oldLabel := currentAction value.
+                        oldLabel ~= aLabel ifTrue:[
+                            currentAction value:aLabel.
+                        ]
                   ].
         aBlock value:scaler.    
     ]
@@ -988,5 +993,5 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.32 2000-09-12 10:58:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.33 2000-09-12 11:15:11 cg Exp $'
 ! !