fixed Package ear position

OpenPonk · Oct 28, 2023 · 566a6eb · 566a6eb
1 parent ad4246a
commit 566a6eb
Showing 1 changed file with 2 additions and 4 deletions.
diff --git 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;