+ BlElement>>withAllChildrenDepthFirstDo:

pharo-graphics · Jan 29, 2024 · c18d99e · c18d99e
1 parent 464f535
commit c18d99e
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/Bloc/BlElement.class.st b/src/Bloc/BlElement.class.st
@@ -4083,6 +4083,13 @@ BlElement >> withAllChildrenBreadthFirstDo: aBlock [
 	self allChildrenBreadthFirstDo: aBlock
 ]
 
+{ #category : #'api - children enumeration' }
+BlElement >> withAllChildrenDepthFirstDo: aBlock [
+	self childrenDo: [ :each | each allChildrenDepthFirstDo: aBlock ].
+	self childrenDo: aBlock.
+	aBlock value: self
+]
+
 { #category : #'api - children enumeration' }
 BlElement >> withAllChildrenDo: aBlock [
 	"Evaluate aBlock with myself and each of my direct children as argument.