Collection.st
changeset 8577 181fa2db957b
parent 8510 af60b80bf50e
child 8606 6612bbac2d71
equal deleted inserted replaced
8576:f58f51583a34 8577:181fa2db957b
   248      Returns true here; this method is redefined in fix-size
   248      Returns true here; this method is redefined in fix-size
   249      collections"
   249      collections"
   250 
   250 
   251     ^ true
   251     ^ true
   252 ! !
   252 ! !
       
   253 
   253 
   254 
   254 !Collection methodsFor:'Compatibility-Dolphin'!
   255 !Collection methodsFor:'Compatibility-Dolphin'!
   255 
   256 
   256 identityIncludes:anObject
   257 identityIncludes:anObject
   257     "return true, if the argument, anObject is in the collection.
   258     "return true, if the argument, anObject is in the collection.
  1981      #(1 2 3 4 5) contains:[:el | el odd]  
  1982      #(1 2 3 4 5) contains:[:el | el odd]  
  1982      #(2 4 6 8 10) contains:[:el | el odd]  
  1983      #(2 4 6 8 10) contains:[:el | el odd]  
  1983     "
  1984     "
  1984 
  1985 
  1985     "Modified: 26.5.1997 / 17:38:57 / cg"
  1986     "Modified: 26.5.1997 / 17:38:57 / cg"
       
  1987 !
       
  1988 
       
  1989 noneSatisfy:aBlock 
       
  1990     "evaluate aBlock for each of the receiver's elements. 
       
  1991      Return true, if aBlock returns false for all elements, false otherwise
       
  1992      (i.e. false if any element satisfies the block-condition)."
       
  1993 
       
  1994     ^ (self anySatisfy:aBlock) not
       
  1995 
       
  1996     "
       
  1997      #(1 2 3 4 5) noneSatisfy:[:el | el odd]   
       
  1998      #(2 4 6 8 10) noneSatisfy:[:el | el odd]  
       
  1999      #(2 4 6 8 10) noneSatisfy:[:el | el even]  
       
  2000     "
  1986 ! !
  2001 ! !
  1987 
  2002 
  1988 !Collection methodsFor:'error handling'!
  2003 !Collection methodsFor:'error handling'!
  1989 
  2004 
  1990 emptyCheck 
  2005 emptyCheck 
  2742 ! !
  2757 ! !
  2743 
  2758 
  2744 !Collection class methodsFor:'documentation'!
  2759 !Collection class methodsFor:'documentation'!
  2745 
  2760 
  2746 version
  2761 version
  2747     ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.164 2004-09-03 11:26:40 stefan Exp $'
  2762     ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.165 2004-09-22 09:29:46 cg Exp $'
  2748 ! !
  2763 ! !
  2749 
  2764 
  2750 Collection initialize!
  2765 Collection initialize!