--- a/ProgressIndicator.st	Tue Nov 16 16:26:53 2010 +0100
+++ b/ProgressIndicator.st	Wed Nov 17 13:44:23 2010 +0100
@@ -886,21 +886,21 @@
     "switch between percentage mode (if false) and busy indication (if true)"
 
     aBooleanHolder ~~ showBusy ifTrue:[
-	showBusy notNil ifTrue:[        
-	    showBusy removeDependent:self.
-	].
-	showBusy := aBooleanHolder.
-	showBusy addDependent:self.
-	(showBusy value) ifTrue:[
-	    self startBusyIndicationProcess.
-	] ifFalse:[
-	    self stopBusyIndicationProcess
-	].
-	shown ifTrue:[self redraw]
+        showBusy notNil ifTrue:[        
+            showBusy removeDependent:self.
+        ].
+        showBusy := aBooleanHolder.
+        showBusy isValueModel ifTrue:[showBusy addDependent:self].
+        (showBusy value) ifTrue:[
+            self startBusyIndicationProcess.
+        ] ifFalse:[
+            self stopBusyIndicationProcess
+        ].
+        shown ifTrue:[self redraw]
     ].
 
-    "Created: / 21.10.1998 / 17:35:16 / cg"
-    "Modified: / 21.10.1998 / 18:03:06 / cg"
+    "Created: / 21-10-1998 / 17:35:16 / cg"
+    "Modified: / 17-11-2010 / 13:43:51 / cg"
 ! !
 
 !ProgressIndicator methodsFor:'accessing-behavior'!
@@ -1379,9 +1379,9 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.61 2010-11-12 18:03:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.62 2010-11-17 12:44:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.61 2010-11-12 18:03:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.62 2010-11-17 12:44:23 cg Exp $'
 ! !