equal
deleted
inserted
replaced
1050 YYYY-MM-DDThh:mm:ss.sTZD (eg 1997-07-16T19:20:30.45+01:00) |
1050 YYYY-MM-DDThh:mm:ss.sTZD (eg 1997-07-16T19:20:30.45+01:00) |
1051 Timestamp now printStringFormat:'%(year)-%(month)-%(day)T%h:%m:%s.%(milli2)%(TZD)' |
1051 Timestamp now printStringFormat:'%(year)-%(month)-%(day)T%h:%m:%s.%(milli2)%(TZD)' |
1052 |
1052 |
1053 " |
1053 " |
1054 |
1054 |
1055 |hours minutes seconds millis s t| |
1055 |time hours minutes seconds millis s t| |
1056 |
1056 |
1057 hours := self hours. |
1057 time := self asTime. |
1058 minutes := self minutes. |
1058 hours := time hours. |
1059 seconds := self seconds. |
1059 minutes := time minutes. |
|
1060 seconds := time seconds. |
1060 millis := self milliseconds. |
1061 millis := self milliseconds. |
1061 |
1062 |
1062 aDictionary at:$H put:(s := hours printString). |
1063 aDictionary at:$H put:(s := hours printString). |
1063 aDictionary at:$h put:(s leftPaddedTo:2 with:$0). |
1064 aDictionary at:$h put:(s leftPaddedTo:2 with:$0). |
1064 |
1065 |
1380 ! ! |
1381 ! ! |
1381 |
1382 |
1382 !AbstractTime class methodsFor:'documentation'! |
1383 !AbstractTime class methodsFor:'documentation'! |
1383 |
1384 |
1384 version |
1385 version |
1385 ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.83 2014-09-05 14:14:06 stefan Exp $' |
1386 ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.84 2014-11-06 14:49:43 cg Exp $' |
1386 ! |
1387 ! |
1387 |
1388 |
1388 version_CVS |
1389 version_CVS |
1389 ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.83 2014-09-05 14:14:06 stefan Exp $' |
1390 ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.84 2014-11-06 14:49:43 cg Exp $' |
1390 ! ! |
1391 ! ! |
1391 |
1392 |