diff -r 5f7b290a2c69 -r de8ae1bf2827 Time.st
--- 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 $'
 ! !