# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1528923536 -7200
# Node ID 05cd9b440af9456dad85ea9322d1ea8710fad737
# Parent  2b13966b73f304c047a71ad25fe1709c7ac165f4
#DOCUMENTATION by cg
class: SelectionInListView
changed: #dragAutoScroll: (send #scrollUpLines: instead of #scrollUp:, send #scrollDownLines: instead of #scrollDown:)

diff -r 2b13966b73f3 -r 05cd9b440af9 SelectionInListView.st
--- 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