--- a/Date.st Fri Mar 19 18:44:34 2010 +0100
+++ b/Date.st Sun Mar 21 20:14:11 2010 +0100
@@ -2475,9 +2475,7 @@
"the argument must understand year, month and day to be
comparable, whatever it is"
- ^ dateEncoding < (Date encodeYear:aDate year
- month:aDate month
- day:aDate day)
+ ^ dateEncoding < (Date encodeYear:aDate year month:aDate month day:aDate day)
"
Date today < (Date day:24 month:12 year:2000)
@@ -2517,9 +2515,7 @@
"the argument must understand year, month and day to be
comparable, whatever it is"
- ^ dateEncoding > (Date encodeYear:aDate year
- month:aDate month
- day:aDate day)
+ ^ dateEncoding > (Date encodeYear:aDate year month:aDate month day:aDate day)
"
Date today > (Date newDay:24 month:12 year:2099)
@@ -2543,11 +2539,6 @@
^ self
!
-asNative
- #swAdded.
- ^self
-!
-
asTimestamp
"return an TimeStamp instance, representing midnight of last night"
@@ -2618,32 +2609,6 @@
^ self addDays:days
! !
-!Date methodsFor:'printing'!
-
-printUnboundedSchemaStringOn: stream
- "If a Date is prior to 01 January 1601, or post 31 December 65535, then it cannot be
- formatted by Windows. ... and the Dolphin printUnboundedDate method does not respect the format string"
-
- #swAdded.
- stream
- display: self year;
- nextPut: $-;
- display: (self monthIndex printStringRadix: 10 padTo: 2);
- nextPut: $-;
- display: (self dayOfMonth printStringRadix: 10 padTo: 2).
-!
-
-schemaDisplayString
- "Answer a valid XMLSchema xsd:date lexical representation"
- "Assume UTC"
-
- | stream |
- #swAdded.
- stream := String writeStream.
- self printUnboundedSchemaStringOn: stream.
- stream nextPut: $Z.
- ^stream contents
-! !
!Date methodsFor:'printing & storing'!
@@ -2987,11 +2952,11 @@
!Date class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.132 2010-02-10 17:46:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.133 2010-03-21 19:14:11 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.132 2010-02-10 17:46:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.133 2010-03-21 19:14:11 cg Exp $'
! !
Date initialize!