--- a/SelectionInListView.st	Sat Aug 10 09:27:02 2019 +0200
+++ b/SelectionInListView.st	Mon Aug 12 17:21:11 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -3240,16 +3242,17 @@
 scrollSelectDown
     "auto scroll action; scroll and reinstall timed-block"
 
-    self scrollDown.
+    self scrollDownLines:(self device shiftDown ifTrue:[10] ifFalse:[1]).
     Processor addTimedBlock:autoScrollBlock afterSeconds:autoScrollDeltaT.
 
     "Modified: / 3.2.2000 / 22:41:59 / cg"
 !
 
 scrollSelectUp
-    "auto scroll action; scroll and reinstall timed-block"
-
-    self scrollUp.
+    "auto scroll action; 
+     scroll and reinstall timed-block"
+
+    self scrollUpLines:(self device shiftDown ifTrue:[10] ifFalse:[1]).
     Processor addTimedBlock:autoScrollBlock afterSeconds:autoScrollDeltaT.
 !