Time.st
changeset 17641 e28a4212f412
parent 17162 682a35f6f035
child 18120 e3a375d5f6a8
child 18456 74744af7f90d
--- a/Time.st	Tue Mar 24 08:18:34 2015 +0100
+++ b/Time.st	Tue Mar 24 08:20:13 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 AbstractTime subclass:#Time
 	instanceVariableNames:'timeEncoding'
 	classVariableNames:''
@@ -47,39 +51,38 @@
     Use Time utcNow to get the time in the UTC zone.
 
     Note: time was changed recently to keep the number of milliseconds since midnight.
-	  However, all existing instance creators so far only create time instances with 0-millis.
-	  I.e. Time now still returns a time with second precision.
-	  This may change in the future.
+          However, all existing instance creators so far only create time instances with 0-millis.
+          I.e. Time now still returns a time with second precision.
 
-	  It is not done currently, to remain backward compatible, as users may get confused
-	  to see t1 > t2 although they print the same (as long as the printed representation does not
-	  include the milli seconds).
-	  A change of the default printformat on the other side is not done now, as it may
-	  affect many existing applications.
+          It is not done currently, to remain backward compatible, as users may get confused
+          to see t1 > t2 although they print the same (as long as the printed representation does not
+          include the milli seconds).
+          On the other side: a change of the default printformat is not done now, 
+          as it may affect many existing applications.
 
-	  Any application which needs the millisecond precision time should call the new
-	    Time nowWithMilliseconds.
+          Any application which needs the millisecond precision time should call the new
+            Time nowWithMilliseconds.
 
     Examples:
-	|t|
+        |t|
 
-	t := Time now.
-	Transcript showCR:t.
+        t := Time now.
+        Transcript showCR:t.
 
 
-	|t1 t2|
+        |t1 t2|
 
-	t1 := Time now.
-	(Delay forSeconds:10) wait.
-	t2 := Time now.
-	t2 - t1
+        t1 := Time now.
+        (Delay forSeconds:10) wait.
+        t2 := Time now.
+        t2 - t1
 
     [author:]
-	Claus Gittinger
+        Claus Gittinger
 
     [see also:]
-	Date Timestamp AbstractTime OperatingSystem
-	Filename
+        Date Timestamp AbstractTime OperatingSystem
+        Filename
 "
 ! !
 
@@ -360,7 +363,6 @@
     ^ '%h:%m:%s.%i'
 ! !
 
-
 !Time methodsFor:'Compatibility-Backward'!
 
 asMilliSeconds
@@ -705,6 +707,7 @@
     "
 ! !
 
+
 !Time methodsFor:'printing & storing'!
 
 print12HourFormatOn:aStream
@@ -950,10 +953,10 @@
 !Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.102 2014-11-29 11:53:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.103 2015-03-24 07:20:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.102 2014-11-29 11:53:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.103 2015-03-24 07:20:13 cg Exp $'
 ! !