equal
deleted
inserted
replaced
562 setMilliseconds:(self getMilliseconds * aNumber) asInteger |
562 setMilliseconds:(self getMilliseconds * aNumber) asInteger |
563 |
563 |
564 " |
564 " |
565 (TimeDuration fromString:'10s') * 5 |
565 (TimeDuration fromString:'10s') * 5 |
566 " |
566 " |
|
567 ! |
|
568 |
|
569 roundTo:aTimeDuration |
|
570 ^ self class new timeEncoding:(timeEncoding roundTo:aTimeDuration timeEncoding) |
|
571 |
|
572 " |
|
573 (TimeDuration fromMilliseconds:25234) roundTo:(TimeDuration fromSeconds:2) |
|
574 " |
567 ! ! |
575 ! ! |
568 |
576 |
569 !TimeDuration methodsFor:'converting'! |
577 !TimeDuration methodsFor:'converting'! |
570 |
578 |
571 asTime |
579 asTime |
1051 self setMilliseconds:((h * 60 * 60 ) + (m * 60) + s) * 1000 + millis. |
1059 self setMilliseconds:((h * 60 * 60 ) + (m * 60) + s) * 1000 + millis. |
1052 ! |
1060 ! |
1053 |
1061 |
1054 setMilliseconds:millis |
1062 setMilliseconds:millis |
1055 "set my duration given milliseconds. |
1063 "set my duration given milliseconds. |
1056 Notice that (in contrast to Time), there is no modulu operation here. |
1064 Notice that (in contrast to Time), there is no modulo operation here. |
1057 Duration can be longer than a day" |
1065 Duration can be longer than a day" |
1058 |
1066 |
1059 "/ self assert:(millis isInteger). |
1067 "/ self assert:(millis isInteger). |
1060 timeEncoding := millis |
1068 timeEncoding := millis rounded |
1061 |
1069 |
1062 "Modified: / 18-07-2007 / 13:44:16 / cg" |
1070 "Modified: / 18-07-2007 / 13:44:16 / cg" |
1063 ! |
1071 ! |
1064 |
1072 |
1065 setSeconds:secs |
1073 setSeconds:secs |
1087 ! ! |
1095 ! ! |
1088 |
1096 |
1089 !TimeDuration class methodsFor:'documentation'! |
1097 !TimeDuration class methodsFor:'documentation'! |
1090 |
1098 |
1091 version |
1099 version |
1092 ^ '$Header: /cvs/stx/stx/libbasic/TimeDuration.st,v 1.67 2014-05-07 13:36:51 stefan Exp $' |
1100 ^ '$Header: /cvs/stx/stx/libbasic/TimeDuration.st,v 1.68 2014-05-16 06:59:19 stefan Exp $' |
1093 ! |
1101 ! |
1094 |
1102 |
1095 version_CVS |
1103 version_CVS |
1096 ^ '$Header: /cvs/stx/stx/libbasic/TimeDuration.st,v 1.67 2014-05-07 13:36:51 stefan Exp $' |
1104 ^ '$Header: /cvs/stx/stx/libbasic/TimeDuration.st,v 1.68 2014-05-16 06:59:19 stefan Exp $' |
1097 ! ! |
1105 ! ! |
1098 |
1106 |
1099 |
1107 |
1100 TimeDuration initialize! |
1108 TimeDuration initialize! |