--- a/ListView.st	Tue Sep 19 11:03:51 2000 +0200
+++ b/ListView.st	Tue Sep 19 13:48:19 2000 +0200
@@ -1760,6 +1760,11 @@
     super keyPress:key x:x y:y
 !
 
+mapped
+    self stopAutoScroll.
+    super mapped
+!
+
 redrawX:x y:y width:w height:h
     "a region must be redrawn"
 
@@ -1846,6 +1851,11 @@
 
     "Modified: / 18.11.1996 / 19:37:02 / stefan"
     "Modified: / 27.1.1998 / 14:10:04 / cg"
+!
+
+unmap
+    self stopAutoScroll.
+    super unmap
 ! !
 
 !ListView methodsFor:'initialization'!
@@ -3495,11 +3505,11 @@
     deltaT := 0.5 / mm.
 
     (deltaT = autoScrollDeltaT) ifFalse:[
-	autoScrollDeltaT := deltaT.
-	autoScrollBlock isNil ifTrue:[
-	    autoScrollBlock := [self scrollSelectDown].
-	    Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
-	]
+        autoScrollDeltaT := deltaT.
+        autoScrollBlock isNil ifTrue:[
+            autoScrollBlock := [self realized ifTrue:[self scrollSelectDown]].
+            Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
+        ]
     ]
 !
 
@@ -3515,11 +3525,11 @@
     deltaT := 0.5 / mm.
 
     (deltaT = autoScrollDeltaT) ifFalse:[
-	autoScrollDeltaT := deltaT.
-	autoScrollBlock isNil ifTrue:[
-	    autoScrollBlock := [self scrollSelectLeft].
-	    Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
-	]
+        autoScrollDeltaT := deltaT.
+        autoScrollBlock isNil ifTrue:[
+            autoScrollBlock := [ self realized ifTrue:[self scrollSelectLeft]].
+            Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
+        ]
     ]
 !
 
@@ -3535,11 +3545,11 @@
     deltaT := 0.5 / mm.
 
     (deltaT = autoScrollDeltaT) ifFalse:[
-	autoScrollDeltaT := deltaT.
-	autoScrollBlock isNil ifTrue:[
-	    autoScrollBlock := [self scrollSelectRight].
-	    Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
-	]
+        autoScrollDeltaT := deltaT.
+        autoScrollBlock isNil ifTrue:[
+            autoScrollBlock := [self realized ifTrue:[self scrollSelectRight]].
+            Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
+        ]
     ]
 !
 
@@ -3555,11 +3565,11 @@
     deltaT := 0.5 / mm.
 
     (deltaT = autoScrollDeltaT) ifFalse:[
-	autoScrollDeltaT := deltaT.
-	autoScrollBlock isNil ifTrue:[
-	    autoScrollBlock := [self scrollSelectUp].
-	    Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
-	]
+        autoScrollDeltaT := deltaT.
+        autoScrollBlock isNil ifTrue:[
+            autoScrollBlock := [self realized ifTrue:[self scrollSelectUp]].
+            Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
+        ]
     ]
 !
 
@@ -4243,5 +4253,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.241 2000-09-06 13:48:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.242 2000-09-19 11:48:19 cg Exp $'
 ! !