--- a/ListView.st	Mon Aug 12 17:27:02 2019 +0200
+++ b/ListView.st	Mon Aug 12 17:28:39 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -4468,9 +4470,7 @@
      - timeDelta for scroll is computed from distance.
      Return true, to tell caller that scrolling is allowed (redefined in editField)"
 
-    self
-	startAutoScrollVertical:yDistance
-	scrollSelector:#scrollSelectDown.
+    self startAutoScrollVertical:yDistance scrollSelector:#scrollSelectDown.
     ^ true
 !
 
@@ -4483,14 +4483,18 @@
     autoScroll ifFalse:[^ self].
 
     mm := xDistance // self horizontalIntegerPixelPerMillimeter + 1.
-    deltaT := 0.5 / mm.
-
-    (deltaT = autoScrollDeltaT) ifFalse:[
-	autoScrollDeltaT := deltaT.
-	autoScrollBlock isNil ifTrue:[
-	    autoScrollBlock := [self realized ifTrue:[self perform:scrollSelector]].
-	    Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
-	]
+    deltaT := 0.25 / mm.
+
+    true "(deltaT ~= autoScrollDeltaT)" ifTrue:[
+        autoScrollDeltaT := deltaT.
+        autoScrollBlock isNil ifTrue:[
+            autoScrollBlock := [
+                                self realized ifTrue:[
+                                    self sensor enqueueMessage:scrollSelector for:self
+                                ]
+                               ].
+            Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
+        ]
     ]
 !
 
@@ -4498,9 +4502,7 @@
     "setup for auto-scroll up (when button-press-moving to the left of the view)
      - timeDelta for scroll is computed from distance"
 
-    self
-	startAutoScrollHorizontal:xDistance negated
-	scrollSelector:#scrollSelectLeft.
+    self startAutoScrollHorizontal:(xDistance negated) scrollSelector:#scrollSelectLeft.
     ^ true
 !
 
@@ -4508,9 +4510,7 @@
     "setup for auto-scroll down (when button-press-moving to the right of the view)
      - timeDelta for scroll is computed from distance"
 
-    self
-	startAutoScrollHorizontal:xDistance
-	scrollSelector:#scrollSelectRight.
+    self startAutoScrollHorizontal:xDistance scrollSelector:#scrollSelectRight.
     ^ true
 !
 
@@ -4519,9 +4519,7 @@
      - timeDelta for scroll is computed from distance.
      Return true, to tell caller that scrolling is allowed (redefined in editField)"
 
-    self
-	startAutoScrollVertical:yDistance negated
-	scrollSelector:#scrollSelectUp.
+    self startAutoScrollVertical:(yDistance negated) scrollSelector:#scrollSelectUp.
     ^ true
 !
 
@@ -4534,14 +4532,19 @@
     autoScroll ifFalse:[^ self].
 
     mm := (yDistance abs // self verticalIntegerPixelPerMillimeter) + 1.
-    deltaT := 0.5 / mm.
-
-    (deltaT = autoScrollDeltaT) ifFalse:[
-	autoScrollDeltaT := deltaT.
-	autoScrollBlock isNil ifTrue:[
-	    autoScrollBlock := [self realized ifTrue:[self perform:scrollSelector]].
-	    Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
-	]
+    "/ the number of millimeters distance shortens the delaytime
+    deltaT := 0.25 / mm.
+
+    true "(deltaT ~= autoScrollDeltaT)" ifTrue:[
+        autoScrollDeltaT := deltaT.
+        autoScrollBlock isNil ifTrue:[
+            autoScrollBlock := [
+                                self realized ifTrue:[
+                                    self sensor enqueueMessage:scrollSelector for:self
+                                ]
+                               ].
+            Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
+        ]
     ]
 
     "Modified: / 08-08-2010 / 11:26:26 / cg"