TZTimestamp.st
changeset 16976 34cb1703d013
parent 16966 7d549c75105f
child 16980 299ae06e2db4
--- a/TZTimestamp.st	Fri Nov 07 19:44:57 2014 +0100
+++ b/TZTimestamp.st	Fri Nov 07 19:45:04 2014 +0100
@@ -58,7 +58,7 @@
         Transcript showCR:Timestamp now asUtcTimestamp
 
       the current time in NewYork:         
-        Transcript showCR:( Timestamp now asTZTimestamp:(Timestamp utcOffsetFrom:'EST') negated ) 
+        Transcript showCR:( Timestamp now asTZTimestamp:(Timestamp utcOffsetFrom:'EST')) 
 
     [author:]
         Claus Gittinger
@@ -126,15 +126,22 @@
         ^ self.
     ].
     ^ super asTZTimestamp:utcOffsetArg
+
+    "what is the time now in NewYork?
+     Timestamp now asTZTimestamp:(Timestamp utcOffsetFrom:'EST') 
+
+     what is the time now in Stuttgart?
+     Timestamp now asTZTimestamp:(Timestamp utcOffsetFrom:'MEZ')  
+    "
 ! !
 
 !TZTimestamp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/TZTimestamp.st,v 1.2 2014-11-07 17:49:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/TZTimestamp.st,v 1.3 2014-11-07 18:45:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/TZTimestamp.st,v 1.2 2014-11-07 17:49:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/TZTimestamp.st,v 1.3 2014-11-07 18:45:04 cg Exp $'
 ! !