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