# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1415288904 -3600
# Node ID c62ad93254c2a95ff4e48509e69eef5ccf78c4c3
# Parent  66a377261f906c49f83817eb027694b13bab0ab9
class: UtcTimestamp
added: #setOSTimeFromYear:month:day:hour:minute:second:millisecond:
removed: #year:month:day:hour:minute:second:millisecond:
changed: #timeInfo
instance creation refactored and fixed for timestamps before 1970

diff -r 66a377261f90 -r c62ad93254c2 UtcTimestamp.st
--- a/UtcTimestamp.st	Thu Nov 06 16:15:52 2014 +0100
+++ b/UtcTimestamp.st	Thu Nov 06 16:48:24 2014 +0100
@@ -62,6 +62,13 @@
 !UtcTimestamp methodsFor:'accessing'!
 
 timeInfo
+    osTime < 0 ifTrue:[
+        self halt:'timestamp out of OS range'.
+        "/ TODO:
+        "/ get timeInfo of epoche,
+        "/ manually adjust d.m.y and h.m.s from the negative osTime.
+    ].
+
     ^ OperatingSystem computeUTCTimeAndDateFrom:osTime
 !
 
@@ -85,14 +92,10 @@
 
 !UtcTimestamp methodsFor:'initialization'!
 
-year:y month:m day:d hour:h minute:min second:s millisecond:millis 
+setOSTimeFromYear:y month:m day:d hour:h minute:min second:s millisecond:millis 
     osTime := OperatingSystem 
-                computeOSTimeFromUTCYear:y
-                month:m
-                day:d
-                hour:h
-                minute:min
-                second:s
+                computeOSTimeFromUTCYear:y month:m day:d
+                hour:h minute:min second:s
                 millisecond:millis
 
     "
@@ -120,6 +123,6 @@
 !UtcTimestamp class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/UtcTimestamp.st,v 1.6 2014-07-09 16:20:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UtcTimestamp.st,v 1.7 2014-11-06 15:48:24 cg Exp $'
 ! !