ProgressIndicator.st
changeset 4261 66f61921bcfb
parent 4260 004afeabb49a
child 4469 a4d672240503
--- 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 $'
 ! !