--- a/ProgressIndicator.st	Thu Apr 16 13:01:10 1998 +0200
+++ b/ProgressIndicator.st	Sat Apr 18 13:33:37 1998 +0200
@@ -561,14 +561,18 @@
 redraw
     "redraw the percentage bar and optional percentage string"
 
-    |s rx sx sy sw m w h|
+    |s rx sx sy sw m2 m w h|
 
     m := margin + 1.
-    w := width - (m*2).
-    h := height - (m*2).
+    m2 := m*2.
+
+    w := width - m2.
+    h := height - m2.
 
     rx := (w * percentage / 100) rounded.
 
+    self clear.
+
     self paint:bgColor.
     self fillRectangleX:m+rx y:m width:w-rx height:h.
 
@@ -596,7 +600,14 @@
         ]
     ]
 
-    "Modified: 22.10.1997 / 21:05:31 / cg"
+    "Modified: / 18.4.1998 / 02:34:00 / cg"
+!
+
+sizeChanged:how
+    super sizeChanged:how.
+    self invalidate
+
+    "Created: / 18.4.1998 / 02:34:37 / cg"
 ! !
 
 !ProgressIndicator methodsFor:'initialization'!
@@ -735,5 +746,5 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.20 1998-04-07 15:26:22 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.21 1998-04-18 11:33:37 cg Exp $'
 ! !