diff --git a/src/FAST-Core-Model-Extension/FASTEntity.extension.st b/src/FAST-Core-Model-Extension/FASTEntity.extension.st index 51e8db6..918e388 100644 --- a/src/FAST-Core-Model-Extension/FASTEntity.extension.st +++ b/src/FAST-Core-Model-Extension/FASTEntity.extension.st @@ -38,6 +38,13 @@ FASTEntity >> rootNode [ ^ self parentNode ifNil: [ self ] ifNotNil: [:parent | parent rootNode ] ] +{ #category : #'*FAST-Core-Model-Extension' } +FASTEntity >> sourceCode [ + "I should be overriden in my users" + + ^ self sourceText copyFrom: self startPos to: self endPos +] + { #category : #'*FAST-Core-Model-Extension' } FASTEntity >> sourceText [ "I should be overriden in my users"