Merge branch 'master' into release_base

OpenPonk · Nov 15, 2024 · 0930482 · 0930482
2 parents 15e329c + 1decd1d
commit 0930482
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/repository/OpenPonk-ClassEditor/OPUmlAbstractAssociationController.class.st b/repository/OpenPonk-ClassEditor/OPUmlAbstractAssociationController.class.st
@@ -37,6 +37,18 @@ OPUmlAbstractAssociationController >> removeModel [
 OPUmlAbstractAssociationController >> validate [
 
 	super validate.
+	self validateMemberEndCount.
 	self model memberEnds do: [ :each | self validateProperty: each ].
 	self model attributes do: [ :each | self validateProperty: each ]
 ]
+
+{ #category : 'validation' }
+OPUmlAbstractAssociationController >> validateMemberEndCount [
+
+	self model memberEnds size = 2 ifTrue: [ ^ self ].
+
+	OPModelInvalid signal: (String streamContents: [ :s |
+			 s << self model asString << '" has '
+			 << self model memberEnds size asString
+			 << ' memberEnds instead of 2' ])
+]