Time.st
changeset 88 81dacba7a63a
parent 77 6c38ca59927f
child 95 d22739a0c6e9
--- a/Time.st	Thu Jun 02 13:36:22 1994 +0200
+++ b/Time.st	Thu Jun 02 18:22:49 1994 +0200
@@ -18,12 +18,37 @@
 !
 
 Time comment:'
-
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
+'!
 
-$Header: /cvs/stx/stx/libbasic/Time.st,v 1.8 1994-05-17 10:09:27 claus Exp $
-'!
+!Time class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1989 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+version
+"
+$Header: /cvs/stx/stx/libbasic/Time.st,v 1.9 1994-06-02 16:22:29 claus Exp $
+"
+!
+
+documentation
+"
+    Instances of time represent a particular time-of-day.
+"
+! !
 
 !Time class methodsFor:'instance creation'!
 
@@ -37,8 +62,7 @@
 fromOSTime:osTime
     "return a time, representing the time given by the operatingSystem time"
 
-    ^ self basicNew setSecondsLow:(osTime at:1)
-                              and:(osTime at:2)
+    ^ self basicNew setSecondsLow:(osTime at:1) and:(osTime at:2)
 ! !
 
 !Time class methodsFor:'ST-80 compatibility'!