sort the events by name

OpenSmock · Dec 6, 2024 · f861408 · f861408
1 parent a7e23e8
commit f861408
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 6 deletions.
diff --git a/src/Molecule-IDE/MolComponentToRoassal.class.st b/src/Molecule-IDE/MolComponentToRoassal.class.st
@@ -213,15 +213,15 @@ MolComponentToRoassal class >> connectorsInOn: aMolComponent [
 	services := self
 		            connectorsFromMolRSContracts:
 		            (self associationsAllUsedServicesAndTargetsFor:
-			             aMolComponent).
+			             aMolComponent) sorted.
 	events := self
 		          connectorsFromMolRSContracts:
 		          (self associationsAllConsumedEventsAndTargetsFor:
-			           aMolComponent).
+			           aMolComponent) sorted.
 	parameters := self
 		              connectorsFromMolRSContracts:
 		              (self associationsAllUsedParametersAndTargetsFor:
-			               aMolComponent).
+			               aMolComponent) sorted.
 
 	connectors := RSComposite new
 		              shapes: services , events , parameters;
@@ -286,13 +286,13 @@ MolComponentToRoassal class >> connectorsOutOn: aMolComponent [
 
 	services := self connectorsFromMolRSContracts:
 		            (self associationsAllProvidedServicesAndTargetsFor:
-			             aMolComponent).
+			             aMolComponent) sorted.
 	events := self connectorsFromMolRSContracts:
 		          (self associationsAllProducedEventsAndTargetsFor:
-			           aMolComponent).
+			           aMolComponent) sorted.
 	parameters := self connectorsFromMolRSContracts:
 		              (self associationsAllProvidedParametersAndTargetsFor:
-			               aMolComponent).
+			               aMolComponent) sorted.
 
 	connectors := RSComposite new
 		              shapes: services , events , parameters;

diff --git a/src/Molecule-IDE/MolRSContractModel.class.st b/src/Molecule-IDE/MolRSContractModel.class.st
@@ -10,6 +10,12 @@ Class {
 	#category : #'Molecule-IDE-Inspectors'
 }
 
+{ #category : #comparing }
+MolRSContractModel >> <= aMolRSContractModel [
+
+	^ self eventClass name < aMolRSContractModel eventClass name
+]
+
 { #category : #accessing }
 MolRSContractModel >> color [