adding the ability to ask to an entity all its tagged entities and sa…

…me for a mooseGroup. tests are missing
moosetechnology · Aug 23, 2024 · 767b564 · 767b564
1 parent 535b79e
commit 767b564
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 0 deletions.
diff --git a/src/Famix-Tagging/MooseEntity.extension.st b/src/Famix-Tagging/MooseEntity.extension.st
@@ -20,6 +20,23 @@ MooseEntity >> allTagAssociations: aCollection [
 	self allTagAssociations value: aCollection
 ]
 
+{ #category : #'*Famix-Tagging' }
+MooseEntity >> allTaggedEntities [
+	| taggedEntities |
+
+	taggedEntities := OrderedCollection new.
+	self allTaggedEntitiesIn: taggedEntities .
+	^ taggedEntities .
+
+]
+
+{ #category : #'*Famix-Tagging' }
+MooseEntity >> allTaggedEntitiesIn: anOrderedCollection [ 
+	self isTagged ifTrue: [ anOrderedCollection add: self ].
+	self children do: [ :c | c allTaggedEntitiesIn: anOrderedCollection ].
+	^anOrderedCollection 
+]
+
 { #category : #'*Famix-Tagging' }
 MooseEntity >> allTags [
 	"all tags on me"

diff --git a/src/Famix-Tagging/MooseGroup.extension.st b/src/Famix-Tagging/MooseGroup.extension.st
@@ -1,5 +1,10 @@
 Extension { #name : #MooseGroup }
 
+{ #category : #'*Famix-Tagging' }
+MooseGroup >> allTaggedEntities [
+	self entities flatCollectAsSet: #allTaggedEntities.
+]
+
 { #category : #'*Famix-Tagging' }
 MooseGroup >> tagEntitiesWith: aTag [