Merge pull request #680 from moosetechnology/isRoot-property

Introduce #isRoot boolean property
moosetechnology · Jan 12, 2024 · 05c9962 · 05c9962
2 parents c4cce8b + 1bb11d0
commit 05c9962
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 18 deletions.
diff --git a/src/Moose-Core-Tests/MooseEntityTest.class.st b/src/Moose-Core-Tests/MooseEntityTest.class.st
@@ -30,17 +30,6 @@ MooseEntityTest >> testBookmark [
 	self assert: bookmark isBookmarked
 ]
 
-{ #category : #tests }
-MooseEntityTest >> testIsRoot [
-	| entity |
-	entity := self actualClass new.
-	entity stub parents willReturn: {  }.
-	self assert: entity isRoot.
-
-	entity stub parents willReturn: { MooseEntity new }.
-	self deny: entity isRoot
-]
-
 { #category : #tests }
 MooseEntityTest >> testIsStub [
 	self deny: self actualClass new isStub.

diff --git a/src/Moose-Core/MooseEntity.class.st b/src/Moose-Core/MooseEntity.class.st
@@ -184,13 +184,6 @@ MooseEntity >> isMooseEntity [
 	^ true
 ]
 
-{ #category : #testing }
-MooseEntity >> isRoot [
-	"Return true if the entity is not contained in any other entity."
-
-	^ self parents isEmpty
-]
-
 { #category : #testing }
 MooseEntity >> isStub [
 	^ self attributeAt: #privateIsStub ifAbsent: [ false ]

diff --git a/src/Moose-Query/TEntityMetaLevelDependency.trait.st b/src/Moose-Query/TEntityMetaLevelDependency.trait.st
@@ -699,6 +699,16 @@ TEntityMetaLevelDependency >> isIncludedIn: anEntity parentSelectorsCache: paren
 	^ false
 ]
 
+{ #category : #testing }
+TEntityMetaLevelDependency >> isRoot [
+
+	<FMProperty: #isRoot type: #Boolean>
+	<derived>
+	<FMComment:
+	'An entity is root if it has no parent in the model. This is useful for example to be able to build visualization where the displayed elements are the roots of the model and to let those elements be expanded to display their children.'>
+	^ self parents isEmpty
+]
+
 { #category : #accessing }
 TEntityMetaLevelDependency >> numberOfChildren [
 	<FMProperty: #numberOfChildren type: #Number>