--- a/TextView.st	Mon Aug 12 17:21:11 2019 +0200
+++ b/TextView.st	Mon Aug 12 17:27:02 2019 +0200
@@ -3349,7 +3349,7 @@
     "just to make certain, that we actually have a selection..."
     selectionEndLine isNil ifTrue:[^ self].
 
-    self scrollDownLines:1.
+    self scrollDownLines:(self device shiftDown ifTrue:[10] ifFalse:[1]).
 
     "make new selection immediately visible"
     prevEndLine := selectionEndLine.
@@ -3380,8 +3380,10 @@
     prevStartLine := selectionStartLine.
     selectionStartCol := selectionStartCol - 1 max:1.
     true "false" ifTrue:[
-        self selectionChanged. self repairDamage.
-        self scrollLeft.       self repairDamage. 
+        self selectionChanged. 
+        self repairDamage.
+        self scrollLeft:((self horizontalScrollStep) * (device shiftDown ifTrue:[10] ifFalse:[1])).       
+        self repairDamage. 
     ] ifFalse:[
         self scrollLeft.       
         self selectionChanged.
@@ -3417,8 +3419,12 @@
     ].
 
     self selectionChanged. "/ false ifTrue:[ self repairDamage ].
-    self scrollRight.      "/ false ifTrue:[ self repairDamage ].
-    self invalidate.
+    self repairDamage. 
+    self scrollRight:((self horizontalScrollStep) * (device shiftDown ifTrue:[10] ifFalse:[1])).      
+    "/ false ifTrue:[ self repairDamage ].
+    self repairDamage. 
+    "/ self invalidate.
+
     autoScrollBlock notNil ifTrue:[ Processor addTimedBlock:autoScrollBlock afterSeconds:autoScrollDeltaT ].
 
     "Modified: / 05-08-2010 / 21:25:56 / cg"
@@ -3436,7 +3442,7 @@
     "just to make certain, that we actually have a selection..."
     selectionStartLine isNil ifTrue:[^ self].
 
-    self scrollUp.
+    self scrollUpLines:(self device shiftDown ifTrue:[10] ifFalse:[1]).
 
     "make new selection immediately visible"
     prevStartLine := selectionStartLine.
@@ -3445,7 +3451,9 @@
     selectionStartLine to:prevStartLine do:[:lineNr |
         self redrawLine:lineNr
     ].
-    autoScrollBlock notNil ifTrue:[ Processor addTimedBlock:autoScrollBlock afterSeconds:autoScrollDeltaT ].
+    autoScrollBlock notNil ifTrue:[ 
+        Processor addTimedBlock:autoScrollBlock afterSeconds:autoScrollDeltaT 
+    ].
     self selectionChanged.
 !