--- a/Time.st Tue Nov 26 13:13:31 2002 +0100
+++ b/Time.st Tue Nov 26 14:09:19 2002 +0100
@@ -454,7 +454,6 @@
^ self
! !
-
!Time methodsFor:'printing & storing'!
print12HourFormatOn:aStream
@@ -626,7 +625,9 @@
!
setSeconds:secs
- "set my time given seconds since midnight"
+ "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))
@@ -659,8 +660,9 @@
timeEncoding := encoding
! !
+
!Time class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.55 2002-11-20 10:14:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.56 2002-11-26 13:09:19 cg Exp $'
! !