--- a/UtcTimestamp.st Fri Nov 07 22:23:54 2014 +0100
+++ b/UtcTimestamp.st Fri Nov 07 22:24:01 2014 +0100
@@ -66,7 +66,7 @@
!
timeZoneName
- ^ #utc
+ ^ 'UTC'
!
utcOffset
@@ -90,6 +90,9 @@
!UtcTimestamp methodsFor:'initialization'!
setOSTimeFromYear:y month:m day:d hour:h minute:min second:s millisecond:millis
+ "private: ask the operating system to compute the internal osTime (based on the epoch),
+ given y,m,d and h,m,s in utc time"
+
osTime := OperatingSystem
computeOSTimeFromUTCYear:y month:m day:d
hour:h minute:min second:s
@@ -106,10 +109,14 @@
!UtcTimestamp methodsFor:'testing'!
isLocalTimestamp
+ "return true, if I am a local timestamp"
+
^ false
!
isUtcTimestamp
+ "return true, if I am a utc timestamp"
+
^ true
! !
@@ -123,7 +130,11 @@
!UtcTimestamp class methodsFor:'documentation'!
+version
+ ^ '$Header: /cvs/stx/stx/libbasic/UtcTimestamp.st,v 1.10 2014-11-07 21:24:01 cg Exp $'
+!
+
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/UtcTimestamp.st,v 1.9 2014-11-07 19:45:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/UtcTimestamp.st,v 1.10 2014-11-07 21:24:01 cg Exp $'
! !