equal
deleted
inserted
replaced
901 ^ connectedLabel |
901 ^ connectedLabel |
902 |
902 |
903 "Created: / 07-11-2011 / 22:01:00 / cg" |
903 "Created: / 07-11-2011 / 22:01:00 / cg" |
904 ! |
904 ! |
905 |
905 |
|
906 model:aValueHolder |
|
907 "set my percentage holder" |
|
908 |
|
909 super model:aValueHolder. |
|
910 aValueHolder notNil ifTrue:[ |
|
911 self percentage:(model perform:aspectMsg) |
|
912 ]. |
|
913 ! |
|
914 |
906 percentage:aNumber |
915 percentage:aNumber |
907 "set the percentage" |
916 "set the percentage" |
908 |
917 |
909 |newPercentage| |
918 |newPercentage| |
910 |
919 |
911 aNumber < 0 ifTrue:[ |
920 newPercentage := -1. |
912 newPercentage := -1. |
921 (aNumber notNil and:[aNumber >= 0]) ifTrue:[ |
913 ] ifFalse:[ |
|
914 newPercentage := ((aNumber max:0) min:100) rounded. |
922 newPercentage := ((aNumber max:0) min:100) rounded. |
915 ]. |
923 ]. |
916 newPercentage ~= percentage ifTrue:[ |
924 newPercentage ~= percentage ifTrue:[ |
917 percentage := newPercentage. |
925 percentage := newPercentage. |
918 self invalidateRepairNow:true. |
926 self invalidateRepairNow:true. |
1713 ! ! |
1721 ! ! |
1714 |
1722 |
1715 !ProgressIndicator class methodsFor:'documentation'! |
1723 !ProgressIndicator class methodsFor:'documentation'! |
1716 |
1724 |
1717 version |
1725 version |
1718 ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.74 2013-07-04 11:50:40 cg Exp $' |
1726 ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.75 2013-07-04 15:47:59 cg Exp $' |
1719 ! |
1727 ! |
1720 |
1728 |
1721 version_CVS |
1729 version_CVS |
1722 ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.74 2013-07-04 11:50:40 cg Exp $' |
1730 ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.75 2013-07-04 15:47:59 cg Exp $' |
1723 ! ! |
1731 ! ! |
1724 |
1732 |