--- a/Time.st Fri Mar 05 19:55:27 1999 +0100
+++ b/Time.st Fri Mar 05 22:22:11 1999 +0100
@@ -69,15 +69,34 @@
hour:h minutes:m seconds:s
"return an instance of Time representing the given time.
- See also Time now / Date today / AbsoluteTime now."
+ See also Time now / Date today / AbsoluteTime now.
+ Obsolete: please use #hours:minutes:seconds:"
- ^ self basicNew setHour:h minutes:m seconds:s
+ self obsoleteMethodWarning:'use hours:minutes:seconds:'.
+
+ ^ self hours:h minutes:m seconds:s
"
- Time hour:2 minutes:33 seconds:0
- Time hour:0 minutes:0 seconds:0
- Time hour:24 minutes:0 seconds:0
- Time hour:23 minutes:59 seconds:59
+ Time hours:2 minutes:33 seconds:0
+ Time hours:0 minutes:0 seconds:0
+ Time hours:24 minutes:0 seconds:0
+ Time hours23 minutes:59 seconds:59
+ "
+
+ "Modified: 19.4.1996 / 15:32:40 / cg"
+!
+
+hours:h minutes:m seconds:s
+ "return an instance of Time representing the given time.
+ See also Time now / Date today / AbsoluteTime now."
+
+ ^ self basicNew setHours:h minutes:m seconds:s
+
+ "
+ Time hours:2 minutes:33 seconds:0
+ Time hours:0 minutes:0 seconds:0
+ Time hours:24 minutes:0 seconds:0
+ Time hours:23 minutes:59 seconds:59
"
"Modified: 19.4.1996 / 15:32:40 / cg"
@@ -139,7 +158,7 @@
]
]
].
- newTime := self basicNew setHour:hour minutes:min seconds:sec
+ newTime := self basicNew setHours:hour minutes:min seconds:sec
].
^ newTime
@@ -419,7 +438,7 @@
m := minutes.
s := secs.
].
- self setHour:h minutes:m seconds:s
+ self setHours:h minutes:m seconds:s
"Modified: 1.7.1996 / 15:21:06 / cg"
!
@@ -432,7 +451,7 @@
^ timeEncoding
!
-setHour:h minutes:m seconds:s
+setHours:h minutes:m seconds:s
"set my time given individual values"
self setSeconds:(((h\\24) * 60 * 60 ) + (m * 60) + s).
@@ -471,5 +490,5 @@
!Time class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.36 1999-02-22 20:39:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.37 1999-03-05 21:22:11 cg Exp $'
! !