--- a/ListView.st	Tue Apr 15 13:57:52 2003 +0200
+++ b/ListView.st	Tue Apr 15 13:59:19 2003 +0200
@@ -1919,9 +1919,9 @@
     "a key was pressed - handle page-keys here"
 
     <resource: #keyboard (#PreviousPage #NextPage #HalfPageUp #HalfPageDown
-			  #BeginOfText #EndOfText
-			  #ScrollUp #ScrollDown )>
-    |sensor n|
+                          #BeginOfText #EndOfText
+                          #ScrollUp #ScrollDown )>
+    |n|
 
     (key == #PreviousPage) ifTrue: [^ self pageUp].
     (key == #NextPage)     ifTrue: [^ self pageDown].
@@ -1931,22 +1931,13 @@
     (key == #BeginOfText) ifTrue:[^ self scrollToTop].
     (key == #EndOfText) ifTrue:[^ self scrollToBottom].
 
-    sensor := self sensor.
     (key == #ScrollUp) ifTrue:[
-	sensor isNil ifTrue:[
-	    n := 1
-	] ifFalse:[
-	    n := 1 + (sensor compressKeyPressEventsWithKey:#ScrollUp).
-	].
-	^ self scrollUp:n
+        n := 1 + (self sensor compressKeyPressEventsWithKey:#ScrollUp).
+        ^ self scrollUp:n
     ].
     (key == #ScrollDown) ifTrue:[
-	sensor isNil ifTrue:[
-	    n := 1
-	] ifFalse:[
-	    n := 1 + (sensor compressKeyPressEventsWithKey:#ScrollDown).
-	].
-	^ self scrollDown:n
+        n := 1 + (self sensor compressKeyPressEventsWithKey:#ScrollDown).
+        ^ self scrollDown:n
     ].
 
     super keyPress:key x:x y:y
@@ -4460,5 +4451,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.280 2003-03-19 11:21:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.281 2003-04-15 11:59:19 stefan Exp $'
 ! !