--- a/SelectionInListModelView.st	Thu Jun 14 11:34:53 2018 +0200
+++ b/SelectionInListModelView.st	Fri Jun 15 02:40:43 2018 +0200
@@ -899,7 +899,7 @@
 
     ^ super dragAutoScroll:aDropContext.
 
-    targetY  := aDropContext targetPoint y.
+    targetY  := aDropContext targetPointInDeviceCoordinates y.
     scrollUp := (targetY < (height // 2)).
 
     scrollUp ifTrue:[
@@ -926,7 +926,7 @@
     ^ true
 
     "Modified: / 18-07-2010 / 09:08:29 / cg"
-    "Modified: / 14-06-2018 / 09:48:01 / Claus Gittinger"
+    "Modified: / 15-06-2018 / 02:25:57 / Claus Gittinger"
 !
 
 dropSource