Time.st
changeset 6903 76ad70b0b8c2
parent 6902 e852abccde71
child 6904 680e7d97de38
--- a/Time.st	Tue Nov 26 14:46:47 2002 +0100
+++ b/Time.st	Tue Nov 26 14:51:14 2002 +0100
@@ -624,28 +624,6 @@
     self setSeconds:(millis // 1000)
 !
 
-setSeconds:secs
-    "set my time given seconds since midnight.
-     Notice the modulu opeartions here - there cannot be a time behond 24hours
-     (use TimeDuration, if you need that)."
-
-    secs < 0 ifTrue:[
-        timeEncoding := (24 * 3600) - (secs negated \\ (24 * 3600))
-    ] ifFalse:[
-        timeEncoding := secs
-    ].
-    timeEncoding > (24 * 3600) ifTrue:[
-        timeEncoding := timeEncoding \\ (24 * 3600).
-    ]
-
-    "
-     Time now seconds
-     Time now timeEncoding
-     (Time now addDays:5) seconds     
-     (Time now addDays:5) timeEncoding
-    "
-!
-
 timeEncoding
     "the internal encoding is stricktly private, 
      and should not be used outside."
@@ -664,5 +642,5 @@
 !Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.57 2002-11-26 13:46:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.58 2002-11-26 13:51:14 cg Exp $'
 ! !