--- a/ProgressIndicator.st	Mon Oct 01 11:34:01 2018 +0200
+++ b/ProgressIndicator.st	Mon Oct 01 16:13:09 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -1208,7 +1210,15 @@
 
 connectToTop:top label:label
     connectedTop := top.
-    connectedLabel := label
+    connectedLabel := label.
+    
+    connectedLabel 
+        onChangeEvaluate:[ 
+            connectedLabel extent:(connectedLabel preferredExtent).
+            connectedTop forceResize 
+        ].
+
+    "Modified: / 01-10-2018 / 16:12:27 / Claus Gittinger"
 !
 
 startBusyIndicationProcess
@@ -1628,7 +1638,6 @@
         labelValue := '' asValue.
     ].
 
-
     "/ the worker process
 
     p := 
@@ -1693,7 +1702,7 @@
     "Modified: / 07-11-2011 / 21:53:46 / cg"
     "Modified (format): / 08-01-2012 / 12:00:39 / cg"
     "Modified: / 11-07-2018 / 11:31:46 / Stefan Vogel"
-    "Modified: / 19-07-2018 / 18:26:34 / Claus Gittinger"
+    "Modified: / 01-10-2018 / 16:07:56 / Claus Gittinger"
 !
 
 showProgressOf:aBlock