# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1527243477 -7200
# Node ID 84cc05d2dde8ab270dc108892b2a147414c09f33
# Parent  5c413c4c11889e0514429fc13a6f7a579e15bbf0
#OTHER by cg
class: AbstractTime
iso8601 as print format

added:
        #printIso8601CompressedOn:
        #printStringIso8601Compressed
comment/format in: #printStringIso8601
changed: #addBasicPrintBindingsTo:language:

diff -r 5c413c4c1188 -r 84cc05d2dde8 Time.st
--- a/Time.st	Fri May 25 12:17:48 2018 +0200
+++ b/Time.st	Fri May 25 12:17:57 2018 +0200
@@ -546,6 +546,8 @@
     ^ '%h:%m:%s.%i'
 ! !
 
+
+
 !Time methodsFor:'Compatibility-Backward'!
 
 asMilliSeconds
@@ -926,6 +928,26 @@
     "
 !
 
+printIso8601CompressedOn:aStream
+    "prints the receiver as local time"
+
+    Timestamp timestampISO8601Builder
+        print:self compact:true
+        asLocal:true asUTC:false withMilliseconds:true
+        timeSeparator:$T timeOnly:true
+        on:aStream
+
+    "
+     Time now printString           -> '04:23:33 PM'
+     Time now printStringIso8601    -> 'T16:23:39'  (notice: this is local time)
+
+     Time now printAsUTCIso8601FormatOn:Transcript. Transcript cr.
+     Time now printIso8601FormatOn:Transcript. Transcript cr. 
+    "
+
+    "Created: / 25-05-2018 / 12:06:35 / Claus Gittinger"
+!
+
 printIso8601FormatOn:aStream
     "prints the receiver as local time"
 
@@ -1143,6 +1165,7 @@
     timeEncoding := encoding
 ! !
 
+
 !Time methodsFor:'visiting'!
 
 acceptVisitor:aVisitor with:aParameter