equal
deleted
inserted
replaced
570 WARNING: |
570 WARNING: |
571 AddTime is a bad name - it does not add a time, but expects |
571 AddTime is a bad name - it does not add a time, but expects |
572 a numberOfSeconds as argument. |
572 a numberOfSeconds as argument. |
573 Use any of addSeconds/addHours etc. to make things clear" |
573 Use any of addSeconds/addHours etc. to make things clear" |
574 |
574 |
|
575 timeAmount isNumber ifFalse:[ |
|
576 ^ self addSeconds:(timeAmount asSeconds). |
|
577 ]. |
575 ^ self addSeconds:timeAmount |
578 ^ self addSeconds:timeAmount |
576 ! |
579 ! |
577 |
580 |
578 subtractDays:numberOfDays |
581 subtractDays:numberOfDays |
579 "return a new instance of myself, numberOfDays before." |
582 "return a new instance of myself, numberOfDays before." |
685 WARNING: |
688 WARNING: |
686 SubtractTime is a bad name - it does not add a time, but expects |
689 SubtractTime is a bad name - it does not add a time, but expects |
687 a numberOfSeconds as argument. |
690 a numberOfSeconds as argument. |
688 Use any of addSeconds/addHours etc. to make things clear" |
691 Use any of addSeconds/addHours etc. to make things clear" |
689 |
692 |
|
693 timeAmount isNumber ifFalse:[ |
|
694 ^ self subtractSeconds:(timeAmount asSeconds). |
|
695 ]. |
690 ^ self subtractSeconds:timeAmount |
696 ^ self subtractSeconds:timeAmount |
691 |
697 |
692 ! ! |
698 ! ! |
693 |
699 |
694 !AbstractTime methodsFor:'comparing'! |
700 !AbstractTime methodsFor:'comparing'! |
947 ! ! |
953 ! ! |
948 |
954 |
949 !AbstractTime class methodsFor:'documentation'! |
955 !AbstractTime class methodsFor:'documentation'! |
950 |
956 |
951 version |
957 version |
952 ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.36 2002-10-09 15:30:07 penk Exp $' |
958 ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.37 2002-11-26 09:04:49 cg Exp $' |
953 ! ! |
959 ! ! |