--- a/Collection.st	Wed Sep 22 11:16:59 2004 +0200
+++ b/Collection.st	Wed Sep 22 11:29:46 2004 +0200
@@ -251,6 +251,7 @@
     ^ true
 ! !
 
+
 !Collection methodsFor:'Compatibility-Dolphin'!
 
 identityIncludes:anObject
@@ -1983,6 +1984,20 @@
     "
 
     "Modified: 26.5.1997 / 17:38:57 / cg"
+!
+
+noneSatisfy:aBlock 
+    "evaluate aBlock for each of the receiver's elements. 
+     Return true, if aBlock returns false for all elements, false otherwise
+     (i.e. false if any element satisfies the block-condition)."
+
+    ^ (self anySatisfy:aBlock) not
+
+    "
+     #(1 2 3 4 5) noneSatisfy:[:el | el odd]   
+     #(2 4 6 8 10) noneSatisfy:[:el | el odd]  
+     #(2 4 6 8 10) noneSatisfy:[:el | el even]  
+    "
 ! !
 
 !Collection methodsFor:'error handling'!
@@ -2744,7 +2759,7 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.164 2004-09-03 11:26:40 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.165 2004-09-22 09:29:46 cg Exp $'
 ! !
 
 Collection initialize!