equal
deleted
inserted
replaced
802 |
802 |
803 year:yr month:mon day:day |
803 year:yr month:mon day:day |
804 ^ self newDay:day month:mon year:yr |
804 ^ self newDay:day month:mon year:yr |
805 ! ! |
805 ! ! |
806 |
806 |
807 |
|
808 !Date class methodsFor:'change & update'! |
807 !Date class methodsFor:'change & update'! |
809 |
808 |
810 update:something with:aParameter from:changedObject |
809 update:something with:aParameter from:changedObject |
811 ((something == #Language) or:[something == #LanguageTerritory]) ifTrue:[ |
810 ((something == #Language) or:[something == #LanguageTerritory]) ifTrue:[ |
812 "just remember change for next access" |
811 "just remember change for next access" |
3154 ! ! |
3153 ! ! |
3155 |
3154 |
3156 !Date methodsFor:'visiting'! |
3155 !Date methodsFor:'visiting'! |
3157 |
3156 |
3158 acceptVisitor:aVisitor with:aParameter |
3157 acceptVisitor:aVisitor with:aParameter |
|
3158 "dispatch for visitor pattern; send #visitDate:with: to aVisitor" |
3159 |
3159 |
3160 ^ aVisitor visitDate:self with:aParameter |
3160 ^ aVisitor visitDate:self with:aParameter |
3161 ! ! |
3161 ! ! |
3162 |
3162 |
3163 !Date class methodsFor:'documentation'! |
3163 !Date class methodsFor:'documentation'! |
3164 |
3164 |
3165 version |
3165 version |
3166 ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.147 2014-03-02 00:48:07 cg Exp $' |
3166 ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.148 2014-07-09 16:21:01 cg Exp $' |
3167 ! |
3167 ! |
3168 |
3168 |
3169 version_CVS |
3169 version_CVS |
3170 ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.147 2014-03-02 00:48:07 cg Exp $' |
3170 ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.148 2014-07-09 16:21:01 cg Exp $' |
3171 ! ! |
3171 ! ! |
3172 |
3172 |
3173 |
3173 |
3174 Date initialize! |
3174 Date initialize! |