equal
deleted
inserted
replaced
895 ! ! |
895 ! ! |
896 |
896 |
897 !AbstractTime methodsFor:'double dispatching'! |
897 !AbstractTime methodsFor:'double dispatching'! |
898 |
898 |
899 differenceFromTimestamp:aTimestamp |
899 differenceFromTimestamp:aTimestamp |
900 ^ aTimestamp getSeconds - self getSeconds |
900 "/ the correct thing to do (and I will, in the future) is to |
|
901 "/ return a TimeDuration: |
|
902 "/ |
|
903 ^ TimeDuration fromMilliseconds:(self getMilliseconds - (aTimestamp getMilliseconds)) |
|
904 "/ which is the same as: deltaFrom:aTimestamp |
|
905 "/ |
|
906 "/ however, there might be old code around, which is not be prepared for |
|
907 "/ getting a non-number (the seconds). Therefore, for the meantime, |
|
908 "/ we return: |
|
909 |
|
910 "/ ^ aTimestamp getSeconds - self getSeconds |
901 ! ! |
911 ! ! |
902 |
912 |
903 !AbstractTime methodsFor:'printing & storing'! |
913 !AbstractTime methodsFor:'printing & storing'! |
904 |
914 |
905 addPrintBindingsTo:aDictionary |
915 addPrintBindingsTo:aDictionary |
1216 ! ! |
1226 ! ! |
1217 |
1227 |
1218 !AbstractTime class methodsFor:'documentation'! |
1228 !AbstractTime class methodsFor:'documentation'! |
1219 |
1229 |
1220 version |
1230 version |
1221 ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.77 2013-08-23 00:19:41 cg Exp $' |
1231 ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.78 2014-04-16 22:34:52 cg Exp $' |
1222 ! |
1232 ! |
1223 |
1233 |
1224 version_CVS |
1234 version_CVS |
1225 ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.77 2013-08-23 00:19:41 cg Exp $' |
1235 ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.78 2014-04-16 22:34:52 cg Exp $' |
1226 ! ! |
1236 ! ! |
1227 |
1237 |