equal
deleted
inserted
replaced
950 |
950 |
951 addPrintBindingsTo:dict |
951 addPrintBindingsTo:dict |
952 "private print support" |
952 "private print support" |
953 |
953 |
954 self asDate addPrintBindingsTo:dict. |
954 self asDate addPrintBindingsTo:dict. |
|
955 |
|
956 self year == Date today year ifTrue:[ |
|
957 dict at:#yearOrTime put:(self asTime printStringFormat:'%h:%m'). |
|
958 ]. |
|
959 |
955 super addPrintBindingsTo:dict. |
960 super addPrintBindingsTo:dict. |
956 |
961 |
957 "/ |d m y s| |
962 "/ |d m y s| |
958 "/ |
963 "/ |
959 "/ OperatingSystem computeDatePartsOf:osTime for:[ |
964 "/ OperatingSystem computeDatePartsOf:osTime for:[ |
1146 ! ! |
1151 ! ! |
1147 |
1152 |
1148 !AbsoluteTime class methodsFor:'documentation'! |
1153 !AbsoluteTime class methodsFor:'documentation'! |
1149 |
1154 |
1150 version |
1155 version |
1151 ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.68 2002-07-31 14:22:54 cg Exp $' |
1156 ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.69 2002-10-09 15:30:35 penk Exp $' |
1152 ! ! |
1157 ! ! |