--- a/ScrollBar.st	Fri Feb 09 22:48:18 1996 +0100
+++ b/ScrollBar.st	Fri Feb 09 22:51:11 1996 +0100
@@ -11,11 +11,11 @@
 "
 
 SimpleView subclass:#ScrollBar
-	 instanceVariableNames:'thumb button1 button2 buttonLayout elementSpacing'
-	 classVariableNames:'DefaultButtonPositions DefaultLevel DefaultElementSpacing
-                DefaultScrollerBordered'
-	 poolDictionaries:''
-	 category:'Views-Interactors'
+	instanceVariableNames:'thumb button1 button2 buttonLayout elementSpacing'
+	classVariableNames:'DefaultButtonPositions DefaultLevel DefaultElementSpacing
+		DefaultScrollerBordered'
+	poolDictionaries:''
+	category:'Views-Interactors'
 !
 
 !ScrollBar class methodsFor:'documentation'!
@@ -427,53 +427,55 @@
     self createElements.
 
     (styleSheet at:'scrollBarDisableButtons' default:false) ifTrue:[
-	thumb addDependent:self
+        thumb addDependent:self
     ].
 
-    button1 autoRepeat.
-    button2 autoRepeat.
+    button1 autoRepeat:true.
+    button2 autoRepeat:true.
 
     self computeInitialExtent.
 
     button1 borderWidth:borderWidth.
     DefaultScrollerBordered ifFalse:[
-	thumb borderWidth:borderWidth.
+        thumb borderWidth:borderWidth.
     ].
     button2 borderWidth:borderWidth.
 
     style := styleSheet name.
     ((style = #iris) and:[Display hasGreyscales]) ifTrue:[
-	"have to change some of Buttons defaults"
-	clr := (Color grey:25) on:device.
-	button1 offLevel:2.
-	button2 offLevel:2.
-	button1 foregroundColor:clr.
-	button1 activeForegroundColor:clr.
-	button1 enteredForegroundColor:clr.
-	button2 foregroundColor:clr.
-	button2 activeForegroundColor:clr.
-	button2 enteredForegroundColor:clr.
+        "have to change some of Buttons defaults"
+        clr := (Color grey:25) on:device.
+        button1 offLevel:2.
+        button2 offLevel:2.
+        button1 foregroundColor:clr.
+        button1 activeForegroundColor:clr.
+        button1 enteredForegroundColor:clr.
+        button2 foregroundColor:clr.
+        button2 activeForegroundColor:clr.
+        button2 enteredForegroundColor:clr.
     ].
 
     self setElementPositions.
 
     style = #motif ifTrue:[
-	clr := thumb thumbColor.
-	button1 foregroundColor:clr.
-	button2 foregroundColor:clr.
+        clr := thumb thumbColor.
+        button1 foregroundColor:clr.
+        button2 foregroundColor:clr.
 
-	clr := thumb viewBackground.
-	button1 viewBackground:clr.
-	button2 viewBackground:clr.
-	button1 backgroundColor:clr.
-	button2 backgroundColor:clr.
-	button1 activeBackgroundColor:clr.
-	button2 activeBackgroundColor:clr.
-	device hasGreyscales ifFalse:[
-	    button1 activeForegroundColor:Black.
-	    button2 activeForegroundColor:Black.
-	]
+        clr := thumb viewBackground.
+        button1 viewBackground:clr.
+        button2 viewBackground:clr.
+        button1 backgroundColor:clr.
+        button2 backgroundColor:clr.
+        button1 activeBackgroundColor:clr.
+        button2 activeBackgroundColor:clr.
+        device hasGreyscales ifFalse:[
+            button1 activeForegroundColor:Black.
+            button2 activeForegroundColor:Black.
+        ]
     ]
+
+    "Modified: 9.2.1996 / 22:42:16 / cg"
 !
 
 reinitialize
@@ -596,5 +598,5 @@
 !ScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.20 1995-11-23 18:18:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.21 1996-02-09 21:51:11 cg Exp $'
 ! !