--- a/ListView.st	Wed Nov 22 17:44:47 1995 +0100
+++ b/ListView.st	Wed Nov 22 22:19:31 1995 +0100
@@ -22,7 +22,7 @@
 				tabPositions 
 				lineSpacing
 				fontHeight fontAscent fontIsFixedWidth fontWidth 
-				autoScrollBlock autoScrollDeltaT
+				autoScroll autoScrollBlock autoScrollDeltaT
 				searchPattern wordCheck 
 				includesNonStrings widthOfWidestLine
 				listMsg 
@@ -52,7 +52,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.38 1995-11-11 16:21:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.39 1995-11-22 21:19:31 cg Exp $'
 !
 
 documentation
@@ -1661,6 +1661,8 @@
 
     |deltaT mm|
 
+    autoScroll ifFalse:[^ self].
+
     mm := yDistance // self verticalIntegerPixelPerMillimeter + 1.
     deltaT := 0.5 / mm.
 
@@ -1679,6 +1681,8 @@
 
     |deltaT mm|
 
+    autoScroll ifFalse:[^ self].
+
     mm := yDistance negated // self verticalIntegerPixelPerMillimeter + 1.
     deltaT := 0.5 / mm.
 
@@ -1697,6 +1701,8 @@
 
     |deltaT mm|
 
+    autoScroll ifFalse:[^ self].
+
     mm := xDistance // self horizontalIntegerPixelPerMillimeter + 1.
     deltaT := 0.5 / mm.
 
@@ -1715,6 +1721,8 @@
 
     |deltaT mm|
 
+    autoScroll ifFalse:[^ self].
+
     mm := xDistance negated // self horizontalIntegerPixelPerMillimeter + 1.
     deltaT := 0.5 / mm.
 
@@ -2334,6 +2342,8 @@
     self getFontParameters.
     wordCheck := [:char | char isNationalAlphaNumeric].
     includesNonStrings := false.
+
+    autoScroll := true.
 !
 
 defaultControllerClass