Add FamixTShadowable>>#isShadowed

moosetechnology · Oct 29, 2024 · 1dd5938 · 1dd5938
1 parent 93a42f0
commit 1dd5938
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Famix-Traits/FamixTShadowable.trait.st b/src/Famix-Traits/FamixTShadowable.trait.st
@@ -52,6 +52,12 @@ FamixTShadowable classSide >> annotation [
 	^ self
 ]
 
+{ #category : #testing }
+FamixTShadowable >> isShadowed [
+
+	^ self shadowingEntity isNotNil
+]
+
 { #category : #accessing }
 FamixTShadowable >> shadowingEntity [
 	"Relation named: #shadowingEntity type: #FamixTShadower opposite: #shadowedEntity"