Roassal3 changes adaptation

OpenPonk · Oct 13, 2023 · 1d39298 · 1d39298
1 parent ac18bb0
commit 1d39298
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 15 deletions.
diff --git a/repository/OpenPonk-BPMN/OPBPMNIntermediateEventShape.class.st b/repository/OpenPonk-BPMN/OPBPMNIntermediateEventShape.class.st
@@ -15,30 +15,34 @@ OPBPMNIntermediateEventShape >> createRoassalShape [
 { #category : #connecting }
 OPBPMNIntermediateEventShape >> renderShapeDetails [
 
-	| label selectable innerCircle|
+	| label selectable innerCircle |
 	label := RSLabeled new.
 	label location below.
 	label shapeBuilder labelShape color: Color black.
 	roassalShape addInteraction: label.
 
-	icon := RSBitmap new 
-		form: self typeIconForModel; 
-		yourself.
+	icon := RSBitmap new
+		        form: self typeIconForModel;
+		        yourself.
 	self canvas add: icon.
 	RSLocation new stick: icon on: self roassalShape.
-	self roassalShape when: RSShapeRemovedEvent do: [ 
-		icon remove ].
-
+	self roassalShape
+		when: RSShapeRemovedEvent
+		do: [ icon remove ]
+		for: self.
+
 	innerCircle := RSCircle new
-		size: 31;
-		borderColor: Color black;
-		color: Color transparent;
-		yourself.
+		               size: 31;
+		               borderColor: Color black;
+		               color: Color transparent;
+		               yourself.
 	self canvas add: innerCircle.
 	RSLocation new stick: innerCircle on: self roassalShape.
-	self roassalShape when: RSShapeRemovedEvent do: [ 
-		innerCircle remove ].
-
+	self roassalShape
+		when: RSShapeRemovedEvent
+		do: [ innerCircle remove ]
+		for: self.
+
 	roassalShape @ OPRSSelectionDraggable.
 	selectable := OPRSSelectable new.
 	self setupHighlight: selectable.

diff --git a/repository/OpenPonk-BPMN/OPBPMNNodeShape.class.st b/repository/OpenPonk-BPMN/OPBPMNNodeShape.class.st
@@ -72,7 +72,10 @@ OPBPMNNodeShape >> renderShapeDetails [
 		        yourself.
 	self canvas add: icon.
 	RSLocation new stick: icon on: self roassalShape.
-	self roassalShape when: RSShapeRemovedEvent do: [ icon remove ].
+	self roassalShape
+		when: RSShapeRemovedEvent
+		do: [ icon remove ]
+		for: self.
 
 	selectable := OPRSSelectable new.
 	selectable highlightBorderColor: Color blue.