--- a/HorizontalMiniScroller.st	Sun Apr 30 15:40:03 1995 +0200
+++ b/HorizontalMiniScroller.st	Wed May 03 02:30:14 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/HorizontalMiniScroller.st,v 1.2 1994-11-17 14:34:11 claus Exp $
+$Header: /cvs/stx/stx/libwidg/HorizontalMiniScroller.st,v 1.3 1995-05-03 00:29:35 claus Exp $
 '!
 
 !HorizontalMiniScroller class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/HorizontalMiniScroller.st,v 1.2 1994-11-17 14:34:11 claus Exp $
+$Header: /cvs/stx/stx/libwidg/HorizontalMiniScroller.st,v 1.3 1995-05-03 00:29:35 claus Exp $
 "
 !
 
@@ -66,7 +66,10 @@
 !
 
 initStyle
+    |style lvl|
+
     super initStyle.
+    style := StyleSheet name.
     style == #iris ifTrue:[
 	tallyLevel := 0.
 	tallyMarks := 0.
@@ -75,11 +78,11 @@
     ].
     ((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[
 	style == #st80 ifTrue:[
-	    self level:1.
-	    inset := 1.
+	    lvl := inset := 1.
 	] ifFalse:[
-	    self level:-1.
+	    lvl := -1.
 	].
+	self level:lvl.
 	self borderWidth:0
     ].
     shadowForm := lightForm := nil.