--- a/Date.st Sat Jan 16 11:26:37 2010 +0000
+++ b/Date.st Mon Feb 01 10:03:06 2010 +0000
@@ -756,6 +756,7 @@
"
! !
+
!Date class methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -1539,6 +1540,13 @@
"
! !
+!Date class methodsFor:'spray'!
+
+sprayTypeName
+ #swAdded.
+ ^SOAP::XePName xsd: 'date'
+! !
+
!Date methodsFor:'Compatibility-ANSI'!
dayOfWeek
@@ -2541,6 +2549,11 @@
^ self
!
+asNative
+ #swAdded.
+ ^self
+!
+
asTimestamp
"return an TimeStamp instance, representing midnight of last night"
@@ -2611,6 +2624,33 @@
^ 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'!
addPrintBindingsTo:aDictionary
@@ -2704,7 +2744,7 @@
aDictionary at:$m put:msPadded0.
aDictionary at:$M put:ms.
aDictionary at:$y put:year.
- aDictionary at:$Y put:((year \\ 100)printStringLeftPaddedTo:2 with:$0).
+ aDictionary at:$Y put:((year \\ 100) printStringLeftPaddedTo:2 with:$0).
aDictionary at:$w put:wsPadded0.
aDictionary at:$W put:ws.
@@ -2953,14 +2993,15 @@
!Date class methodsFor:'documentation'!
version
- ^ '$Id: Date.st 10480 2009-12-02 21:30:55Z vranyj1 $'
+ ^ '$Id: Date.st 10496 2010-02-01 10:03:06Z vranyj1 $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic/Date.st,v 1.129 2009/10/07 15:33:07 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic/Date.st,v 1.131 2010/01/27 14:10:32 sr Exp §'
! !
Date initialize!
+