Behavior.st
changeset 18570 198c3622e7d6
parent 18435 b58b1b222873
child 18571 8c6ab490b982
child 18752 b15b10e33d28
equal deleted inserted replaced
18568:b29493dd47eb 18570:198c3622e7d6
  2033 !
  2033 !
  2034 
  2034 
  2035 allInstancesDo:aBlock
  2035 allInstancesDo:aBlock
  2036     "evaluate aBlock for all of my instances"
  2036     "evaluate aBlock for all of my instances"
  2037 
  2037 
  2038     ObjectMemory allInstancesOf:self do:[:anObject |
  2038     ObjectMemory allInstancesOf:self do:aBlock.
  2039 	aBlock value:anObject
       
  2040     ]
       
  2041 
  2039 
  2042     "
  2040     "
  2043      StandardSystemView allInstancesDo:[:v | Transcript showCR:(v name)]
  2041      StandardSystemView allInstancesDo:[:v | Transcript showCR:(v name)]
  2044     "
  2042     "
  2045 !
  2043 !
  5325 ! !
  5323 ! !
  5326 
  5324 
  5327 !Behavior class methodsFor:'documentation'!
  5325 !Behavior class methodsFor:'documentation'!
  5328 
  5326 
  5329 version
  5327 version
  5330     ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.381 2015-06-05 16:09:05 stefan Exp $'
  5328     ^ '$Header$'
  5331 !
  5329 !
  5332 
  5330 
  5333 version_CVS
  5331 version_CVS
  5334     ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.381 2015-06-05 16:09:05 stefan Exp $'
  5332     ^ '$Header$'
  5335 ! !
  5333 ! !
  5336 
  5334