--- a/Scroller.st	Mon Feb 11 10:59:37 2002 +0100
+++ b/Scroller.st	Mon Feb 11 11:00:47 2002 +0100
@@ -1005,6 +1005,10 @@
 !Scroller methodsFor:'autoRepeat'!
 
 installRepeat
+    self installRepeat:repeatDelay.
+!
+
+installRepeat:repeatDelay
     repeatBlock notNil ifTrue:[
         self windowGroup repairDamage.
         Processor addTimedBlock:repeatBlock afterSeconds:repeatDelay
@@ -1384,7 +1388,7 @@
                                 sensor pushUserEvent:#repeatPageUp for:self
                             ]
                            ].
-            sensor pushUserEvent:#installRepeat for:self.
+            sensor pushUserEvent:#installRepeat: for:self withArgument:initialRepeatDelay.
             "/ Processor addTimedBlock:repeatBlock afterSeconds:initialRepeatDelay
         ]
     ] ifFalse:[
@@ -1400,7 +1404,7 @@
                                     sensor pushUserEvent:#repeatPageDown for:self
                                 ]
                                ].
-                sensor pushUserEvent:#installRepeat for:self.
+                sensor pushUserEvent:#installRepeat: for:self withArgument:initialRepeatDelay.
                 "/ Processor addTimedBlock:repeatBlock afterSeconds:initialRepeatDelay
             ]
         ] ifFalse:[
@@ -2087,7 +2091,7 @@
     ].
 
     autoRepeat := styleSheet at:#'scroller.autoRepeat' default:true.
-    initialRepeatDelay := styleSheet at:#'scroller.initialRepeatDelay' default:0.2.
+    initialRepeatDelay := styleSheet at:#'scroller.initialRepeatDelay' default:0.3.
     repeatDelay := styleSheet at:#'scroller.repeatDelay' default:0.15.
 
     "Modified: / 5.9.1998 / 20:21:41 / cg"
@@ -2535,5 +2539,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.159 2002-01-21 10:04:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.160 2002-02-11 10:00:47 cg Exp $'
 ! !