add source code

moosetechnology · Nov 5, 2020 · 8193b48 · 8193b48
1 parent 905280c
commit 8193b48
Showing 1 changed file with 7 additions and 0 deletions.
diff --git 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"