TZTimestamp.st
changeset 18453 71812472e0a5
parent 18450 77835f6f73ad
child 22889 faa5502c4f9f
child 23547 c69c97cec351
--- a/TZTimestamp.st	Sat Jun 06 14:42:18 2015 +0200
+++ b/TZTimestamp.st	Sat Jun 06 14:42:27 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2014 by eXept Software AG
               All Rights Reserved
@@ -123,8 +125,8 @@
     |ti|
 
     "/ utcOffset negative: east of GMT
-    ti := OperatingSystem computeUTCTimeAndDateFrom:(osTime - (utcOffset * 1000)).
-    ti utcOffset:utcOffset.
+    ti := OperatingSystem computeUTCTimeAndDateFrom:(osTime - ((utcOffset ? 0) * 1000)).
+    ti utcOffset:(utcOffset ? 0).
     ^ ti
 !
 
@@ -138,7 +140,7 @@
      If utcOffset is negative, the local timezone is east of Greenwich.
      If utcOffset is positive, the local timezone is west of Greenwich."
 
-    ^  utcOffset
+    ^ utcOffset ? 0
 !
 
 utcOffset:seconds
@@ -195,10 +197,10 @@
 !TZTimestamp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/TZTimestamp.st,v 1.11 2015-06-06 11:59:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/TZTimestamp.st,v 1.12 2015-06-06 12:42:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/TZTimestamp.st,v 1.11 2015-06-06 11:59:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/TZTimestamp.st,v 1.12 2015-06-06 12:42:27 cg Exp $'
 ! !