--- a/Interval.st	Thu Jul 25 18:06:38 2002 +0200
+++ b/Interval.st	Wed Jul 31 10:39:13 2002 +0200
@@ -353,8 +353,52 @@
     ^ stop - start // step + 1
 ! !
 
+!Interval methodsFor:'testing'!
+
+max
+    "return the maximum value in the receiver collection,
+     redefined, since this can be easily computed.
+     Raises an error, if the receiver is empty."
+
+    step == 1 ifTrue:[stop >= start ifTrue:[^ stop]].
+    step < 0 ifTrue:[stop <= start ifTrue:[^ start]].
+    ^ super max
+
+    "
+     (0 to:15) max           
+     (0 to:15 by:2) max      
+     (0 to:15 by:8) max      
+     (15 to:0) max           -> error
+     (15 to:0 by:4) max      -> error      
+     (-1 to:-15 by:-1) max    
+     (-1 to:-15 by:-4) max    
+     (-1 to:15 by:-1) max    -> error  
+    "
+!
+
+min
+    "return the minimum value in the receiver collection,
+     redefined, since this can be easily computed.
+     Raises an error, if the receiver is empty."
+
+    step == -1 ifTrue:[stop <= start ifTrue:[^ stop]].
+    step > 0 ifTrue:[stop >= start ifTrue:[^ start]].
+    ^ super min
+
+    "
+     (0 to:15) min           
+     (0 to:15 by:2) min      
+     (0 to:15 by:8) min      
+     (15 to:0) min          -> error
+     (15 to:0 by:4) min     -> error     
+     (-1 to:-15 by:-1) min    
+     (-1 to:-15 by:-4) min    
+     (-1 to:15 by:-1) min   -> error   
+    "
+! !
+
 !Interval class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.30 2002-05-07 12:07:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.31 2002-07-31 08:39:13 cg Exp $'
 ! !