UtcTimestamp.st
changeset 16987 1c3e57adcf34
parent 16979 a793015c75f4
child 16997 f0867a7f248b
--- 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 $'
 ! !