--- a/ProgressIndicator.st	Thu Jul 21 11:19:30 2005 +0200
+++ b/ProgressIndicator.st	Tue Jul 26 10:50:54 2005 +0200
@@ -955,13 +955,13 @@
     progressValue := 0 asValue.
 
     connectedLabel notNil ifTrue:[
-	labelValue := (connectedLabel label ? '') asValue.
-	connectedLabel 
-	    model:labelValue;
-	    aspect:#value;
-	    labelMessage:#value.
+        labelValue := (connectedLabel label ? '') asValue.
+        connectedLabel 
+            model:labelValue;
+            aspect:#value;
+            labelMessage:#value.
     ] ifFalse:[
-	labelValue := '' asValue.
+        labelValue := '' asValue.
     ].
 
 
@@ -970,29 +970,27 @@
     "/ the worker process
 
     p := [
-	[
-	    WindowGroup windowGroupQuerySignal handle:[:ex |
-		ex proceedWith:self topView windowGroup
-	    ] do:[
-		aBlock value:progressValue value:labelValue
-	    ]
-	] ensure:[
-	    p := nil.
-	    closeTopWhenDone ifTrue:[
-		connectedTop hide
-	    ].
-	    finishAction notNil ifTrue:[
-		finishAction value
-	    ]
-	]
+        [
+            WindowGroup windowGroupQuerySignal handle:[:ex |
+                ex proceedWith:self topView windowGroup
+            ] do:[
+                aBlock value:progressValue value:labelValue
+            ]
+        ] ensure:[
+            p := nil.
+            closeTopWhenDone ifTrue:[
+                connectedTop hide
+            ].
+            finishAction value
+        ]
     ] newProcess.
 
     Processor activeProcess 
-	withPriority:(Processor activePriority + 1)
-	do:[
-	    p resume.
-	    self topView show.
-	].
+        withPriority:(Processor activePriority + 1)
+        do:[
+            p resume.
+            self topView show.
+        ].
     p notNil ifTrue:[p terminate].
 
     "
@@ -1001,22 +999,22 @@
       p := ProgressIndicator inBox.
       p showBusyIndication:true.
       p showProgressOf:
-	    [:progressValue :currentAction |
-		1 to:200 do:[:percent |
-		    (Delay forSeconds:0.05) wait.
-		    progressValue value:percent 
-		].
-	    ].
+            [:progressValue :currentAction |
+                1 to:200 do:[:percent |
+                    (Delay forSeconds:0.05) wait.
+                    progressValue value:percent 
+                ].
+            ].
 
       'it can be reused ...'.  
       p showBusyIndication:false.
       p showProgressOf:
-	    [:progressValue :currentAction |
-		1 to:100 by:5 do:[:percent |
-		    (Delay forSeconds:0.05) wait.
-		    progressValue value:percent 
-		].
-	    ].
+            [:progressValue :currentAction |
+                1 to:100 by:5 do:[:percent |
+                    (Delay forSeconds:0.05) wait.
+                    progressValue value:percent 
+                ].
+            ].
 
     "
 
@@ -1026,5 +1024,5 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.47 2004-02-26 12:18:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.48 2005-07-26 08:50:54 cg Exp $'
 ! !