# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1053334425 -7200
# Node ID 9ff34c678848ebe98e09ba74e4b0063b9a2cf9b9
# Parent  36363d57b32d463f0b13089814f0f67e618b5bd3
scrollSelect stuff refactored

diff -r 36363d57b32d -r 9ff34c678848 ListView.st
--- a/ListView.st	Mon May 19 10:51:45 2003 +0200
+++ b/ListView.st	Mon May 19 10:53:45 2003 +0200
@@ -3673,44 +3673,13 @@
     "setup for auto-scroll down (when button-press-moving below view)
      - timeDelta for scroll is computed from distance"
 
-    |deltaT mm|
-
-    autoScroll ifFalse:[^ self].
-
-    mm := yDistance // self verticalIntegerPixelPerMillimeter + 1.
-    deltaT := 0.5 / mm.
-
-    (deltaT = autoScrollDeltaT) ifFalse:[
-	autoScrollDeltaT := deltaT.
-	autoScrollBlock isNil ifTrue:[
-	    autoScrollBlock := [self realized ifTrue:[self scrollSelectDown]].
-	    Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
-	]
-    ]
+    self
+        startAutoScrollVertical:yDistance 
+        scrollSelector:#scrollSelectDown
 !
 
-startAutoScrollLeft:xDistance
-    "setup for auto-scroll up (when button-press-moving to the left of the view)
-     - timeDelta for scroll is computed from distance"
-
-    |deltaT mm|
-
-    autoScroll ifFalse:[^ self].
-
-    mm := xDistance negated // self horizontalIntegerPixelPerMillimeter + 1.
-    deltaT := 0.5 / mm.
-
-    (deltaT = autoScrollDeltaT) ifFalse:[
-	autoScrollDeltaT := deltaT.
-	autoScrollBlock isNil ifTrue:[
-	    autoScrollBlock := [ self realized ifTrue:[self scrollSelectLeft]].
-	    Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
-	]
-    ]
-!
-
-startAutoScrollRight:xDistance
-    "setup for auto-scroll down (when button-press-moving to the right of the view)
+startAutoScrollHorizontal:xDistance scrollSelector:scrollSelector
+    "setup for auto-scroll left/right (when button-press-moving to the right of the view)
      - timeDelta for scroll is computed from distance"
 
     |deltaT mm|
@@ -3721,31 +3690,58 @@
     deltaT := 0.5 / mm.
 
     (deltaT = autoScrollDeltaT) ifFalse:[
-	autoScrollDeltaT := deltaT.
-	autoScrollBlock isNil ifTrue:[
-	    autoScrollBlock := [self realized ifTrue:[self scrollSelectRight]].
-	    Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
-	]
+        autoScrollDeltaT := deltaT.
+        autoScrollBlock isNil ifTrue:[
+            autoScrollBlock := [self realized ifTrue:[self perform:scrollSelector]].
+            Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
+        ]
     ]
 !
 
+startAutoScrollLeft:xDistance
+    "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:#scrollSelectRight
+!
+
+startAutoScrollRight:xDistance
+    "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
+!
+
 startAutoScrollUp:yDistance
     "setup for auto-scroll up (when button-press-moving below view)
      - timeDelta for scroll is computed from distance"
 
+    self
+        startAutoScrollVertical:yDistance negated
+        scrollSelector:#scrollSelectUp
+!
+
+startAutoScrollVertical:yDistance scrollSelector:scrollSelector
+    "setup for auto-scroll up (when button-press-moving below view)
+     - timeDelta for scroll is computed from distance"
+
     |deltaT mm|
 
     autoScroll ifFalse:[^ self].
 
-    mm := yDistance negated // self verticalIntegerPixelPerMillimeter + 1.
+    mm := yDistance // self verticalIntegerPixelPerMillimeter + 1.
     deltaT := 0.5 / mm.
 
     (deltaT = autoScrollDeltaT) ifFalse:[
-	autoScrollDeltaT := deltaT.
-	autoScrollBlock isNil ifTrue:[
-	    autoScrollBlock := [self realized ifTrue:[self scrollSelectUp]].
-	    Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
-	]
+        autoScrollDeltaT := deltaT.
+        autoScrollBlock isNil ifTrue:[
+            autoScrollBlock := [self realized ifTrue:[self perform:scrollSelector]].
+            Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
+        ]
     ]
 !
 
@@ -4451,5 +4447,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.282 2003-05-07 15:06:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.283 2003-05-19 08:53:45 cg Exp $'
 ! !