--- a/SelectionInListView.st	Wed Jun 13 22:57:36 2018 +0200
+++ b/SelectionInListView.st	Wed Jun 13 22:58:56 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1927,8 +1929,9 @@
 
 dragAutoScroll:aDropContext
     "called by the DragAndDropManager to scroll during a drag/drop operation
-     if required (decided by the widget itself); 
-     If a scroll is done, return true otherwise false (used to restore the background)"
+     if required (decided by the widget itself). 
+     If a scroll was done, return true;
+     otherwise false (used to restore the background)"
 
     |point y dist visLnNr absLnNr nLines scrollUp|
 
@@ -1958,12 +1961,14 @@
     ].
 
     scrollUp ifTrue:[ 
-        self scrollUp:nLines 
+        self scrollUpLines:nLines 
     ] ifFalse:[ 
-        self scrollDown:nLines 
+        self scrollDownLines:nLines 
     ].
 
     ^ true
+
+    "Modified: / 13-06-2018 / 22:09:20 / Claus Gittinger"
 !
 
 dropSource