Fix roots order on tree

src/Pyramid-Bloc/PyramidTreePresenter.class.st

@@ -177,9 +177,22 @@ PyramidTreePresenter >> tree [
 { #category : #'as yet unclassified' }
 PyramidTreePresenter >> updateRoots [
 
+	| roots parent shouldOrder |
 	self shouldUpdateSelection: false.
-	[
-	self tree roots: self projectModel roots asArray ] ensure: [ self shouldUpdateSelection: true ]
+
+	roots := self projectModel roots asArray.
+	parent := nil.
+
+	"If roots all have the same parent then it should be ordered by the parent children order."
+	shouldOrder := (roots allSatisfy: [ :each |
+		                parent ifNil: [ parent := each parent ].
+		                each parent = parent ]) and: [
+		               parent notNil and: [
+			               parent childrenCount = roots size ] ].
+	shouldOrder ifTrue: [ roots := parent children asArray ].
+
+	[ self tree roots: roots ] ensure: [
+		self shouldUpdateSelection: true ]
 ]
 
 { #category : #'as yet unclassified' }