equal
deleted
inserted
replaced
468 |
468 |
469 "Modified: / 2.12.1997 / 17:10:39 / cg" |
469 "Modified: / 2.12.1997 / 17:10:39 / cg" |
470 ! |
470 ! |
471 |
471 |
472 millisecondDeltaFrom:anAbsoluteTime |
472 millisecondDeltaFrom:anAbsoluteTime |
473 "return the delta in milliseconds between 2 absolute times." |
473 "return the delta in milliseconds between 2 absolute times. |
|
474 The argument is supposed to be AFTER the receiver" |
474 |
475 |
475 ^ (self getSeconds - (anAbsoluteTime getSeconds)) * 1000 |
476 ^ (self getSeconds - (anAbsoluteTime getSeconds)) * 1000 |
476 + self milliseconds - anAbsoluteTime milliseconds |
477 + self milliseconds - anAbsoluteTime milliseconds |
477 |
478 |
478 " |
479 " |
482 Delay waitForSeconds:0.5. |
483 Delay waitForSeconds:0.5. |
483 t2 := AbsoluteTime now. |
484 t2 := AbsoluteTime now. |
484 t2 millisecondDeltaFrom:t1 |
485 t2 millisecondDeltaFrom:t1 |
485 " |
486 " |
486 |
487 |
487 "Modified: 7.5.1997 / 16:38:49 / cg" |
488 "Modified: / 5.6.1998 / 04:21:33 / cg" |
488 ! |
489 ! |
489 |
490 |
490 subtractDays:numberOfDays |
491 subtractDays:numberOfDays |
491 "return a new instance of myself, numberOfDays before." |
492 "return a new instance of myself, numberOfDays before." |
492 |
493 |
698 ! ! |
699 ! ! |
699 |
700 |
700 !AbsoluteTime class methodsFor:'documentation'! |
701 !AbsoluteTime class methodsFor:'documentation'! |
701 |
702 |
702 version |
703 version |
703 ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbsoluteTime.st,v 1.35 1998-05-22 11:12:31 cg Exp $' |
704 ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbsoluteTime.st,v 1.36 1998-06-05 02:21:40 cg Exp $' |
704 ! ! |
705 ! ! |