Added allElements method

OpenPonk · Nov 21, 2023 · 1942565 · 1942565
1 parent 09be15f
commit 1942565
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/repository/OpenPonk-Model/OPModelObject.class.st b/repository/OpenPonk-Model/OPModelObject.class.st
@@ -44,6 +44,14 @@ OPModelObject >> addedTo: anObject [
 	^ anObject
 ]
 
+{ #category : #accessing }
+OPModelObject >> allElements [
+	"should return all elements recursively (incl. sub-elements)"
+
+	^ self elements asSet flatCollect: [ :each |
+		  (Set with: each) , each allElements ]
+]
+
 { #category : #accessing }
 OPModelObject >> belongsTo [
 	"FAMIX compatibility"