--- 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 $'
! !