add orderedChildren

^ self children asOrderedCollection sort: #startPos ascending
moosetechnology · Apr 6, 2020 · 4337342 · 4337342
1 parent ed11bdd
commit 4337342
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/src/FAST-Core-Model-Extension/FASTEntity.extension.st b/src/FAST-Core-Model-Extension/FASTEntity.extension.st
@@ -16,10 +16,7 @@ FASTEntity >> containers [
 
 { #category : #'*FAST-Core-Model-Extension' }
 FASTEntity >> currentParentSelector [
-	| res |
-	res := Set new.
-	self parentSelectors do: [ :accessor | 
-		(self perform: accessor) ifNotNil: [ :r | ^ accessor ] ].
+	self parentSelectors do: [ :accessor | (self perform: accessor) ifNotNil: [ :r | ^ accessor ] ].
 	^ nil
 ]
 

diff --git a/src/FAST-Core-Model-Extension/FASTEntitySourceAnchor.extension.st b/src/FAST-Core-Model-Extension/FASTEntitySourceAnchor.extension.st
@@ -1,5 +1,10 @@
 Extension { #name : #FASTEntitySourceAnchor }
 
+{ #category : #'*FAST-Core-Model-Extension' }
+FASTEntitySourceAnchor >> orderedChildren [
+	^ self children asOrderedCollection sort: #startPos ascending
+]
+
 { #category : #'*FAST-Core-Model-Extension' }
 FASTEntitySourceAnchor >> sourceCode [