--- a/VisualPart.st	Fri Mar 06 12:56:18 2020 +0100
+++ b/VisualPart.st	Wed Apr 29 17:22:09 2020 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -416,6 +418,14 @@
     ^ nil
 !
 
+originRelativeToTopView
+    "return the origin (in pixels) relative to my topView"
+
+    ^ self originRelativeTo:(self topView).
+
+    "Created: / 29-04-2020 / 17:22:00 / cg"
+!
+
 originRule
     ^ nil
 !