Improved removign dependent models

OpenPonk · Nov 16, 2024 · 714a80a · 714a80a
1 parent 00013d9
commit 714a80a
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/repository/OpenPonk-Core/OPController.class.st b/repository/OpenPonk-Core/OPController.class.st
@@ -284,11 +284,11 @@ OPController >> removeControllerAndModel [
 
 { #category : 'destruction' }
 OPController >> removeDependentConrollersAndModels [
-	self dependentControllers
-		do: [ :each | 
-			self diagramController controllers
-				detect: [ :ctrl | ctrl model = each model ]
-				ifFound: #removeControllerAndModel ]
+
+	self dependentControllers do: [ :each |
+		self diagramController
+			controllerForModel: each model
+			ifFound: [ :found | found removeControllerAndModel ] ]
 ]
 
 { #category : 'destruction' }