--- a/ProgressIndicator.st	Sun Oct 26 21:15:36 2008 +0100
+++ b/ProgressIndicator.st	Sun Oct 26 21:16:10 2008 +0100
@@ -1030,8 +1030,14 @@
 preferredExtent
     "return my preferred extent"
 
+    "/ If I have an explicit preferredExtent..
+    explicitExtent notNil ifTrue:[
+        ^ explicitExtent
+    ].
+
+    "/ If I have a cached preferredExtent value..
     preferredExtent notNil ifTrue:[
-	^ preferredExtent
+        ^ preferredExtent
     ].
     ^ 100 @ (font height + font descent + ((margin + 1) * 2))
 
@@ -1204,5 +1210,5 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.56 2008-10-04 10:28:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.57 2008-10-26 20:16:10 stefan Exp $'
 ! !