--- a/HierarchicalDropTargetController.st	Fri Jun 15 02:40:43 2018 +0200
+++ b/HierarchicalDropTargetController.st	Fri Jun 15 02:48:45 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2008 by eXept Software AG
               All Rights Reserved
@@ -152,7 +154,7 @@
     dropOverLine isNil ifTrue:[^ self ].       "/ never setup by dropEnter:
 
     target := aDropContext targetWidget.
-    lineNr := target yVisibleToLineNr:(aDropContext targetPoint y).
+    lineNr := target yVisibleToLineNr:(aDropContext targetPointInDeviceCoordinates y).
 
     lineNr isNil ifTrue:[ lineNr := 0. ].
 
@@ -160,6 +162,8 @@
         lineNr := 0.
     ].
     self changeDropLineTo:lineNr in:aDropContext.
+
+    "Modified: / 15-06-2018 / 02:25:37 / Claus Gittinger"
 ! !
 
 !HierarchicalDropTargetController methodsFor:'instance creation'!