BlockNode.st
changeset 4577 5dbab4d69ae8
parent 4575 ad7b25c61c51
child 4603 3a51687ca153
equal deleted inserted replaced
4576:930ac289e158 4577:5dbab4d69ae8
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1989 by Claus Gittinger
     4  COPYRIGHT (c) 1989 by Claus Gittinger
     3 	      All Rights Reserved
     5 	      All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
   652     ]
   654     ]
   653 
   655 
   654     "Created: 2.7.1997 / 10:51:59 / cg"
   656     "Created: 2.7.1997 / 10:51:59 / cg"
   655 !
   657 !
   656 
   658 
       
   659 messageSelectorsDo:aBlock
       
   660     "evaluate aBlock for each message-selector sent by this statement and all followup statements"
       
   661 
       
   662     statements allMessageSelectorsDo:aBlock
       
   663 !
       
   664 
       
   665 messagesDo:aBlock
       
   666     "evaluate aBlock for each message-node sent by this statement and all followup statements"
       
   667 
       
   668     statements allMessagesDo:aBlock
       
   669 !
       
   670 
   657 nodeDo:anEnumerator
   671 nodeDo:anEnumerator
   658     "helper for parse tree walking"
   672     "helper for parse tree walking"
   659 
   673 
   660     |args|
   674     |args|
   661 
   675