--- a/Scroller.st	Mon May 09 09:26:31 2005 +0200
+++ b/Scroller.st	Wed May 11 16:30:47 2005 +0200
@@ -1002,7 +1002,7 @@
 
 installRepeat:repeatDelay
     repeatBlock notNil ifTrue:[
-        self windowGroup repairDamage.
+        self repairDamage.
         Processor addTimedBlock:repeatBlock afterSeconds:repeatDelay
     ]
 !
@@ -1033,7 +1033,7 @@
     repeatBlock notNil ifTrue:[
         "stop scroll"
         (DefaultStopPagerAtThumb and:[self pagedBelowPointer]) ifTrue:[^ self].
-        self windowGroup repairDamage.
+        self repairDamage.
         self pageDown.
         self installRepeat.
     ]
@@ -1043,7 +1043,7 @@
     repeatBlock notNil ifTrue:[
         "stop scroll"
         (DefaultStopPagerAtThumb and:[self pagedAbovePointer]) ifTrue:[^ self].
-        self windowGroup repairDamage.
+        self repairDamage.
         self pageUp.
         self installRepeat.
     ]
@@ -2647,5 +2647,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.180 2004-10-26 15:43:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.181 2005-05-11 14:30:47 stefan Exp $'
 ! !