From aa379ce04c3cfdf82744e5dd26686861b7ffc4c1 Mon Sep 17 00:00:00 2001
From: JanBliznicenko <Jan.Bliznicenko@gmail.com>
Date: Fri, 13 Oct 2023 18:52:57 +0200
Subject: [PATCH] Roassal3 changes adaptation

---
 .../OPUmlPackageShape.class.st                | 27 ++++++++++++-------
 1 file changed, 18 insertions(+), 9 deletions(-)

diff --git a/repository/OpenPonk-ClassEditor/OPUmlPackageShape.class.st b/repository/OpenPonk-ClassEditor/OPUmlPackageShape.class.st
index 788c8587..c3192805 100644
--- a/repository/OpenPonk-ClassEditor/OPUmlPackageShape.class.st
+++ b/repository/OpenPonk-ClassEditor/OPUmlPackageShape.class.st
@@ -71,7 +71,10 @@ OPUmlPackageShape >> renderShapeDetails [
 		       model: self;
 		       yourself.
 	self canvas add: ear.
-	self roassalShape when: RSShapeRemovedEvent do: [ ear remove ].
+	self roassalShape
+		when: RSShapeRemovedEvent
+		do: [ ear remove ]
+		for: self.
 	mainLabel := RSLabel new
 		             color: Color black;
 		             model: self;
@@ -83,9 +86,12 @@ OPUmlPackageShape >> renderShapeDetails [
 		                   yourself.
 	self canvas add: mainLabel.
 	self canvas add: stereotypeLabel.
-	self roassalShape when: RSShapeRemovedEvent do: [ 
-		mainLabel remove.
-		stereotypeLabel remove ].
+	self roassalShape
+		when: RSShapeRemovedEvent
+		do: [
+			mainLabel remove.
+			stereotypeLabel remove ]
+		for: self.
 	RSLocation new
 		inner;
 		left;
@@ -100,11 +106,14 @@ OPUmlPackageShape >> renderShapeDetails [
 		outer;
 		below;
 		stick: mainLabel on: stereotypeLabel.
-	mainLabel when: RSExtentChangedEvent do: [ :event | 
-		self roassalShape width: { 
-				self width.
-				self minWidth.
-				(mainLabel width + self padding) } max ].
+	mainLabel
+		when: RSExtentChangedEvent
+		do: [ :event |
+			self roassalShape width: {
+					self width.
+					self minWidth.
+					(mainLabel width + self padding) } max ]
+		for: self.
 
 	self roassalShape
 		@ OPRSSelectable;