add helpfull methods

src/FAST-Core-Model-Extension/FASTEntity.extension.st

@@ -17,3 +17,8 @@ FASTEntity >> containers [
 FASTEntity >> parentNode [
 	^ self containers at: 1 ifAbsent: [ nil ] 
 ]
+
+{ #category : #'*FAST-Core-Model-Extension' }
+FASTEntity >> removeAllPotentialParentNode [
+	^ self parentSelectors do: [:selector | self perform: selector, ':' withArguments: { nil } ].
+]

src/FAST-GTExtensions/FASTEntitySourceAnchor.extension.st

@@ -0,0 +1,28 @@
+Extension { #name : #FASTEntitySourceAnchor }
+
+{ #category : #'*FAST-GTExtensions' }
+FASTEntitySourceAnchor >> gtNodesIn: composite [
+	<gtInspectorPresentationOrder: 0>
+	^ composite tree
+		title: 'Tree';
+		display: [ :anObject | anObject ];
+		children: [ :each | each childrenNode ];
+		yourself
+]
+
+{ #category : #'*FAST-GTExtensions' }
+FASTEntitySourceAnchor >> gtSourceCodeIn: composite [
+	<gtInspectorPresentationOrder: 0>
+	^ composite text
+		title: 'Source code';
+		display: [ self ];
+		format: [ :t | self sourceText ifNil: [ 'No source code available' ] ifNotNil: [ self sourceCodeAsText ] ];
+		withLineNumbers: true;
+		initialize: [ :presentation | (self sourceText isNil or: [ self startPos isNil or: [ self endPos isNil ] ]) ifFalse: [ presentation selectionInterval: (self startPos to: self endPos) ] ];
+		yourself
+]
+
+{ #category : #'*FAST-GTExtensions' }
+FASTEntitySourceAnchor >> sourceCodeAsText [
+	^ self sourceText asText
+]