--- a/SimpleView.st	Thu Jun 14 14:38:38 2018 +0200
+++ b/SimpleView.st	Fri Jun 15 02:48:39 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -5285,7 +5283,7 @@
     
     didScroll := false.
 
-    point := aDropContext targetPoint.
+    point := aDropContext targetPointInDeviceCoordinates.
     vOrg := self viewOrigin.
 
     x := point x.
@@ -5350,7 +5348,7 @@
     ].    
     ^ didScroll
 
-    "Modified: / 14-06-2018 / 14:38:01 / Claus Gittinger"
+    "Modified: / 15-06-2018 / 02:26:07 / Claus Gittinger"
 !
 
 drop:aDropContext