--- 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 $'
! !