--- a/SimpleView.st	Tue Apr 28 15:28:14 2020 +0200
+++ b/SimpleView.st	Wed Apr 29 17:21:12 2020 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -3532,6 +3534,14 @@
     "Modified: / 5.12.1998 / 14:30:57 / cg"
 !
 
+originRelativeToTopView
+    "return the origin (in pixels) within my topView"
+
+    ^ self originRelativeTo:(self topView)
+
+    "Created: / 29-04-2020 / 17:20:58 / cg"
+!
+
 originRule
     "return the origin block - non public; this will vanish without notice"