--- a/ProgressIndicator.st Thu Jul 04 13:50:40 2013 +0200
+++ b/ProgressIndicator.st Thu Jul 04 17:47:59 2013 +0200
@@ -903,14 +903,22 @@
"Created: / 07-11-2011 / 22:01:00 / cg"
!
+model:aValueHolder
+ "set my percentage holder"
+
+ super model:aValueHolder.
+ aValueHolder notNil ifTrue:[
+ self percentage:(model perform:aspectMsg)
+ ].
+!
+
percentage:aNumber
"set the percentage"
|newPercentage|
- aNumber < 0 ifTrue:[
- newPercentage := -1.
- ] ifFalse:[
+ newPercentage := -1.
+ (aNumber notNil and:[aNumber >= 0]) ifTrue:[
newPercentage := ((aNumber max:0) min:100) rounded.
].
newPercentage ~= percentage ifTrue:[
@@ -1715,10 +1723,10 @@
!ProgressIndicator class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.74 2013-07-04 11:50:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.75 2013-07-04 15:47:59 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.74 2013-07-04 11:50:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.75 2013-07-04 15:47:59 cg Exp $'
! !