equal
deleted
inserted
replaced
545 |
545 |
546 "Created: 25.6.1997 / 14:04:20 / cg" |
546 "Created: 25.6.1997 / 14:04:20 / cg" |
547 "Modified: 25.6.1997 / 15:07:07 / cg" |
547 "Modified: 25.6.1997 / 15:07:07 / cg" |
548 ! ! |
548 ! ! |
549 |
549 |
550 !BlockNode methodsFor:'enumeration'! |
550 !BlockNode methodsFor:'enumerating'! |
551 |
551 |
552 allSubBlocksDo:aBlock |
552 allSubBlocksDo:aBlock |
553 "recursively enumerate all of my subblocks" |
553 "recursively enumerate all of my subblocks" |
554 |
554 |
555 subBlocks notNil ifTrue:[ |
555 subBlocks notNil ifTrue:[ |
578 |
578 |
579 "Created: 19.6.1997 / 16:38:30 / cg" |
579 "Created: 19.6.1997 / 16:38:30 / cg" |
580 "Modified: 19.6.1997 / 17:17:57 / cg" |
580 "Modified: 19.6.1997 / 17:17:57 / cg" |
581 ! ! |
581 ! ! |
582 |
582 |
583 !BlockNode methodsFor:'evaluating'! |
583 !BlockNode methodsFor:'evaluation'! |
584 |
584 |
585 evaluate |
585 evaluate |
586 ^ self |
586 ^ self |
587 ! |
587 ! |
588 |
588 |
940 ! ! |
940 ! ! |
941 |
941 |
942 !BlockNode class methodsFor:'documentation'! |
942 !BlockNode class methodsFor:'documentation'! |
943 |
943 |
944 version |
944 version |
945 ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.56 1999-08-02 08:55:01 cg Exp $' |
945 ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.57 2000-02-12 15:33:40 cg Exp $' |
946 ! ! |
946 ! ! |