From 566a6eb73c8f49022d521be973dce7d28fc72365 Mon Sep 17 00:00:00 2001
From: Jan Bliznicenko <jan.bliznicenko@fit.cvut.cz>
Date: Thu, 26 Oct 2023 20:28:08 +0200
Subject: [PATCH] fixed Package ear position

---
 repository/OpenPonk-ClassEditor/OPUmlPackageShape.class.st | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/repository/OpenPonk-ClassEditor/OPUmlPackageShape.class.st b/repository/OpenPonk-ClassEditor/OPUmlPackageShape.class.st
index ca1bb8b5..d18968fd 100644
--- a/repository/OpenPonk-ClassEditor/OPUmlPackageShape.class.st
+++ b/repository/OpenPonk-ClassEditor/OPUmlPackageShape.class.st
@@ -101,10 +101,8 @@ OPUmlPackageShape >> renderShapeDetails [
 			stereotypeLabel remove ]
 		for: self.
 	RSLocation new
-		inner;
-		left;
-		top;
-		offset: 0 @ ear height negated;
+		insideCornerLeft;
+		offset: 0 @ self roassalShape border width;
 		stick: ear on: self roassalShape.
 	RSLocation new
 		inner;