--- a/ProgressIndicator.st	Tue Apr 07 17:12:15 1998 +0200
+++ b/ProgressIndicator.st	Tue Apr 07 17:26:22 1998 +0200
@@ -570,7 +570,7 @@
     rx := (w * percentage / 100) rounded.
 
     self paint:bgColor.
-    self fillRectangleX:m y:m width:w height:h.
+    self fillRectangleX:m+rx y:m width:w-rx height:h.
 
     showPercentage ifTrue:[
         s := percentage printString , ' %'.
@@ -735,5 +735,5 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.19 1998-03-30 12:27:33 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.20 1998-04-07 15:26:22 tz Exp $'
 ! !