Do not allow generalization self-loops

OpenPonk · Jul 22, 2024 · b5e07cf · b5e07cf
1 parent 39b39f7
commit b5e07cf
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/repository/OpenPonk-ClassEditor/OPUmlClassController.class.st b/repository/OpenPonk-ClassEditor/OPUmlClassController.class.st
@@ -56,11 +56,13 @@ OPUmlClassController >> canBeSourceFor: aController [
 
 { #category : 'adding' }
 OPUmlClassController >> canBeTargetFor: aController [
-	^ (aController isKindOf: OPUmlAttributeController)
-		| (aController isKindOf: OPUmlOperationController)
-		| (aController isKindOf: OPUmlGeneralizationController)
-		| (aController isKindOf: OPUmlAssociationController)
-		| (aController isKindOf: OPUmlExtensionController)
+
+	^ (aController isKindOf: OPUmlAttributeController) or: [
+		  (aController isKindOf: OPUmlOperationController) or: [
+			  (aController isKindOf: OPUmlAssociationController) or: [
+				  (aController isKindOf: OPUmlExtensionController) or: [
+					  (aController isKindOf: OPUmlGeneralizationController) and: [
+						  aController source ~= self ] ] ] ] ]
 ]
 
 { #category : 'figures' }