--- a/ProgressIndicator.st	Tue Jun 04 22:36:22 1996 +0200
+++ b/ProgressIndicator.st	Wed Jun 05 20:15:49 1996 +0200
@@ -410,22 +410,22 @@
     self fillRectangleX:m y:m width:w height:h.
 
     showPercentage ifTrue:[
-	rx <= (sx+sw) ifTrue:[
-	    self paint:Color black.
-	    self displayString:s x:sx y:sy.
-	]
+        rx <= (sx+sw) ifTrue:[
+            self paint:Color black.
+            self displayString:s x:sx y:sy.
+        ]
     ].
 
     self paint:fgColor.
     self fillRectangleX:m y:m width:rx height:h.
 
     showPercentage ifTrue:[
-	rx >= sx ifTrue:[
-	    self clipRect:(m@m corner:rx+1 @ h).
-	    self paint:Color white.
-	    self displayString:s x:sx y:sy.
-	    self clipRect:nil
-	]
+        rx >= sx ifTrue:[
+            self clippingRectangle:(m@m corner:rx+1 @ h).
+            self paint:Color white.
+            self displayString:s x:sx y:sy.
+            self clippingRectangle:nil
+        ]
     ]
 ! !
 
@@ -531,5 +531,5 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.6 1996-05-18 15:43:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.7 1996-06-05 18:15:49 cg Exp $'
 ! !