Timestamp.st
branchjv
changeset 17807 06cc6c49e291
parent 17780 b6e42c92eba0
child 17814 b75a7f0c346b
--- a/Timestamp.st	Tue Nov 09 13:54:57 2010 +0000
+++ b/Timestamp.st	Tue Nov 09 16:24:28 2010 +0000
@@ -556,6 +556,7 @@
         ].
     ].
 
+    utcOffset := 0.
     utcOffsetString := (parts at:6 + indexModifier).
     ((utcOffsetString sameAs:'GMT') or:[utcOffsetString sameAs:'UTC']) ifFalse:[ 
         self assert:utcOffsetString size == 5.
@@ -579,7 +580,9 @@
 
     ^ (Timestamp 
         fromDate:(Date newDay:day monthIndex:month year:year) 
-        andTime:time) + utcOffset       
+        andTime:time) + utcOffset
+
+    "Modified: / 05-10-2010 / 16:05:32 / cg"
 !
 
 secondsSince1970:sec
@@ -2433,18 +2436,19 @@
 !Timestamp class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Timestamp.st 10544 2010-07-12 16:20:36Z vranyj1 $'
+    ^ '$Id: Timestamp.st 10590 2010-11-09 16:24:28Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.130 2010/07/10 07:37:34 cg Exp '
+    ^ 'Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.131 2010-10-05 14:40:57 cg Exp '
 !
 
 version_SVN
-    ^ '$Id: Timestamp.st 10544 2010-07-12 16:20:36Z vranyj1 $'
+    ^ '$Id: Timestamp.st 10590 2010-11-09 16:24:28Z vranyj1 $'
 ! !
 
 Timestamp initialize!
 
 
 
+