--- a/TextView.st	Mon Dec 20 00:44:38 1993 +0100
+++ b/TextView.st	Mon Dec 20 18:24:24 1993 +0100
@@ -30,7 +30,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.4 1993-12-11 01:50:16 claus Exp $
+$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.5 1993-12-20 17:24:22 claus Exp $
 
 written jun-89 by claus
 autoscroll added spring 92 by claus
@@ -329,7 +329,7 @@
     "stop auto scroll; deinstall timed-block"
 
     autoScrollBlock notNil ifTrue:[
-        device compressMotionEvents:true.
+        self compressMotionEvents:true.
         Processor removeTimedBlock:autoScrollBlock.
         autoScrollBlock := nil.
         autoScrollDeltaT := nil
@@ -1214,12 +1214,12 @@
 
     "if moved outside of view, start autoscroll"
     (y < 0) ifTrue:[
-        device compressMotionEvents:false.
+        self compressMotionEvents:false.
         self startScrollUp:y.
         ^ self
     ].
     (y > height) ifTrue:[
-        device compressMotionEvents:false.
+        self compressMotionEvents:false.
         self startScrollDown:(y - height).
         ^ self
     ].