Time.st
changeset 4883 39898c714eb6
parent 4845 ffd67920b3a3
child 4999 9d424b34577e
--- a/Time.st	Fri Oct 08 14:46:02 1999 +0200
+++ b/Time.st	Fri Oct 08 15:32:36 1999 +0200
@@ -79,11 +79,11 @@
     ^ self
         hours:(s // 3600)
         minutes:((s \\ 3600) // 60)
-        seconds:(s \\ (3600 * 60))
+        seconds:((s \\ 3600) \\ 60)
 
     "
      Time fromSeconds:0     
-     Time fromSeconds:3600     
+     Time fromSeconds:3675     
      Time fromSeconds:36000     
      Time fromSeconds:72000     
      Time fromSeconds:96000      
@@ -92,6 +92,7 @@
     "Modified: 8.10.1996 / 19:32:11 / cg"
 
 
+
 !
 
 hour:h minutes:m seconds:s
@@ -576,5 +577,5 @@
 !Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.43 1999-10-04 15:38:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.44 1999-10-08 13:32:36 ah Exp $'
 ! !