SequenceableCollection.st
changeset 14686 9192f0a036fb
parent 14674 672133ad1b1b
child 14893 c2a574a182f3
child 18017 7fef9e17913f
equal deleted inserted replaced
14685:43b852db6777 14686:9192f0a036fb
  4718      d at:'e' put:'E'.
  4718      d at:'e' put:'E'.
  4719      d keysAndValuesCollect:[:key :element |
  4719      d keysAndValuesCollect:[:key :element |
  4720                             key first codePoint even
  4720                             key first codePoint even
  4721                                 ifTrue:element
  4721                                 ifTrue:element
  4722                                 ifFalse:[element asLowercase]]
  4722                                 ifFalse:[element asLowercase]]
       
  4723     "
       
  4724 !
       
  4725 
       
  4726 keysAndValuesConform:aTwoArgBlock
       
  4727     "evaluate the argument, aBlock for every element in the collection,
       
  4728      passing both index and element as arguments.
       
  4729      Return false if any such evaluation returns false, true otherwise."
       
  4730 
       
  4731     self keysAndValuesDo:[:index :el | 
       
  4732         (aTwoArgBlock value:index value:el) ifFalse:[^  false].
       
  4733     ].
       
  4734     ^  true
       
  4735 
       
  4736     "
       
  4737      #(10 20 30 40) keysAndValuesConform:[:key :element | element = (key * 10) ]. 
       
  4738      #(10 20 30 33 40) keysAndValuesConform:[:key :element | element = (key * 10) ]. 
  4723     "
  4739     "
  4724 !
  4740 !
  4725 
  4741 
  4726 keysAndValuesDo:aTwoArgBlock
  4742 keysAndValuesDo:aTwoArgBlock
  4727     "evaluate the argument, aBlock for every element in the collection,
  4743     "evaluate the argument, aBlock for every element in the collection,
  8830 ! !
  8846 ! !
  8831 
  8847 
  8832 !SequenceableCollection class methodsFor:'documentation'!
  8848 !SequenceableCollection class methodsFor:'documentation'!
  8833 
  8849 
  8834 version
  8850 version
  8835     ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.329 2013-01-21 13:44:42 cg Exp $'
  8851     ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.330 2013-01-23 17:40:11 cg Exp $'
  8836 !
  8852 !
  8837 
  8853 
  8838 version_CVS
  8854 version_CVS
  8839     ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.329 2013-01-21 13:44:42 cg Exp $'
  8855     ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.330 2013-01-23 17:40:11 cg Exp $'
  8840 ! !
  8856 ! !
  8841 
  8857 
  8842 
  8858 
  8843 SequenceableCollection initialize!
  8859 SequenceableCollection initialize!