Collection.st
changeset 21215 c41ea6970c23
parent 21143 89370f05de89
child 21249 86c01ee5a76e
child 21267 4c1185a27941
equal deleted inserted replaced
21214:0eb9c48163b4 21215:c41ea6970c23
   341      created by the compiler)"
   341      created by the compiler)"
   342 
   342 
   343     ^ self
   343     ^ self
   344 ! !
   344 ! !
   345 
   345 
       
   346 
   346 !Collection methodsFor:'Compatibility-ANSI'!
   347 !Collection methodsFor:'Compatibility-ANSI'!
   347 
   348 
   348 identityIncludes:anObject
   349 identityIncludes:anObject
   349     "return true, if the argument, anObject is in the collection.
   350     "return true, if the argument, anObject is in the collection.
   350      Same as #includesIdentical for Dolphin/ANSI compatibility."
   351      Same as #includesIdentical for Dolphin/ANSI compatibility."
  1646      I am already a Collection."
  1647      I am already a Collection."
  1647 
  1648 
  1648     ^ self
  1649     ^ self
  1649 
  1650 
  1650 
  1651 
       
  1652 !
       
  1653 
       
  1654 asCollectionDo:aBlock
       
  1655     "enumerate myself"
       
  1656 
       
  1657     self do:aBlock
  1651 !
  1658 !
  1652 
  1659 
  1653 asDictionary
  1660 asDictionary
  1654     "return a Dictionary with the receiver collection's elements,
  1661     "return a Dictionary with the receiver collection's elements,
  1655      using the original keys of the receiver as dictionary key.
  1662      using the original keys of the receiver as dictionary key.