--- a/MiniScroller.st	Thu Nov 17 15:38:53 1994 +0100
+++ b/MiniScroller.st	Thu Nov 17 15:40:37 1994 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -11,17 +11,17 @@
 "
 
 Scroller subclass:#MiniScroller
-         instanceVariableNames:''
-         classVariableNames:''
-         poolDictionaries:''
-         category:'Views-Interactors'
+	 instanceVariableNames:''
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'Views-Interactors'
 !
 
 MiniScroller comment:'
 COPYRIGHT (c) 1994 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/MiniScroller.st,v 1.1 1994-08-07 13:22:53 claus Exp $
+$Header: /cvs/stx/stx/libwidg/MiniScroller.st,v 1.2 1994-11-17 14:40:37 claus Exp $
 '!
 
 !MiniScroller class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
 copyright
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/MiniScroller.st,v 1.1 1994-08-07 13:22:53 claus Exp $
+$Header: /cvs/stx/stx/libwidg/MiniScroller.st,v 1.2 1994-11-17 14:40:37 claus Exp $
 "
 !
 
@@ -68,19 +68,18 @@
 initStyle
     super initStyle.
     style == #iris ifTrue:[
-        tallyLevel := 0.
-        tallyMarks := 0.
-        thumbSoftEdge := false.
-        thumbLevel := 2.
+	tallyLevel := 0.
+	tallyMarks := 0.
+	thumbEdgeStyle := nil.
+	thumbLevel := 2.
     ].
     ((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[
-        style == #st80 ifTrue:[
-            self level:1.
-            self borderWidth:0
-        ] ifFalse:[
-            self level:-1.
-            self borderWidth:0
-        ]
+	style == #st80 ifTrue:[
+	    self level:1.
+	] ifFalse:[
+	    self level:-1.
+	].
+	self borderWidth:0
     ].
     shadowForm := lightForm := nil.
     fixThumbHeight := false