Remove invalid diagram element instead of replacing it by backup

OpenPonk · Nov 23, 2024 · 0cc62c7 · 0cc62c7
1 parent 684a12d
commit 0cc62c7
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 12 deletions.
diff --git a/repository/OpenPonk-Core/OPDiagramElement.class.st b/repository/OpenPonk-Core/OPDiagramElement.class.st
@@ -182,12 +182,6 @@ OPDiagramElement >> attachedShapesDo: aBlock [
 		  thenDo: aBlock
 ]
 
-{ #category : 'serialization' }
-OPDiagramElement >> backupModelElementFor: aModelReference [
-
-	^ nil
-]
-
 { #category : 'accessing' }
 OPDiagramElement >> canvas [
 
@@ -529,9 +523,11 @@ OPDiagramElement >> resizableInteractionTarget [
 { #category : 'serialization' }
 OPDiagramElement >> resolveAllModelElements: aCollection [
 
-	self resolveModelElements: aCollection.
-	self ownedElements do: [ :each | 
-		each resolveAllModelElements: aCollection ]
+	| success |
+	success := self resolveModelElements: aCollection.
+	self ownedElements: (self ownedElements select: [ :each |
+			 each resolveAllModelElements: aCollection ]).
+	^ success
 ]
 
 { #category : 'serialization' }
@@ -541,9 +537,10 @@ OPDiagramElement >> resolveModelElements: aCollection [
 			 [ each modelObjectFrom: aCollection ]
 				 on: NotFound
 				 do: [ :e |
-					 OPModelInvalid signal:
-						 'Diagram references non-existent model element. Try using Proceed to use placeholder model object'.
-					 self backupModelElementFor: each ] ])
+					 OPDiagramInvalid signal:
+						 'Diagram references non-existent model element. Try using Proceed to remove it'.
+					 ^ false ] ]).
+	^ true
 ]
 
 { #category : 'rendering' }

diff --git a/repository/OpenPonk-Core/OPDiagramInvalid.class.st b/repository/OpenPonk-Core/OPDiagramInvalid.class.st
@@ -0,0 +1,7 @@
+Class {
+	#name : 'OPDiagramInvalid',
+	#superclass : 'Warning',
+	#category : 'OpenPonk-Core-Controllers',
+	#package : 'OpenPonk-Core',
+	#tag : 'Controllers'
+}