Fix #738

Order alphabetically nodes in architectural map.
moosetechnology · May 26, 2023 · 7b0b36a · 7b0b36a
1 parent 820e65a
commit 7b0b36a
Showing 1 changed file with 10 additions and 3 deletions.
diff --git a/src/MooseIDE-Dependency/MiArchitecturalMapBuilder.class.st b/src/MooseIDE-Dependency/MiArchitecturalMapBuilder.class.st
@@ -132,15 +132,14 @@ MiArchitecturalMapBuilder >> borderFor: node [
 
 { #category : #building }
 MiArchitecturalMapBuilder >> build [
+
 	rootNode ifNotNil: [ 
 		self updateWithModelSettings.
 		^ self ].
 	rootNode := HNode new.
 	self addTags.
 	mapModel showBusEntities ifTrue: [ 
-		rootNode addAll: (self elements
-				 collect: [ :e | self buildNodeFromEntity: e register: true ]
-				 thenReject: [ :e | e isNil ]) ].
+		rootNode addAll: self createRootNodes ].
 	self renderIn: self container.
 	self updateWithModelSettings.
 	^ self container
@@ -236,6 +235,14 @@ MiArchitecturalMapBuilder >> createMultiTagBoxSized: aSize [
 	^ cp
 ]
 
+{ #category : #building }
+MiArchitecturalMapBuilder >> createRootNodes [
+
+	^ (self elements
+		   collect: [ :e | self buildNodeFromEntity: e register: true ]
+		   thenReject: [ :e | e isNil ]) sort: [ :a :b | a name < b name ]
+]
+
 { #category : #accessing }
 MiArchitecturalMapBuilder >> elements [