--- a/ScrollBar.st	Mon Feb 06 01:52:01 1995 +0100
+++ b/ScrollBar.st	Mon Feb 06 01:53:30 1995 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.9 1994-11-17 14:38:27 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.10 1995-02-06 00:53:13 claus Exp $
 '!
 
 !ScrollBar class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.9 1994-11-17 14:38:27 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.10 1995-02-06 00:53:13 claus Exp $
 "
 !
 
@@ -149,6 +149,11 @@
     elementSpacing := DefaultElementSpacing
 !
 
+reinitialize
+    super reinitialize.
+    self setElementPositions.
+!
+
 createElements
     button1 := ArrowButton upIn:self.
     button2 := ArrowButton downIn:self.
@@ -203,7 +208,7 @@
 
     "need fix - this is a kludge;
      the if should not be needed ..."
-    style == #mswindows ifTrue:[
+    StyleSheet name == #mswindows ifTrue:[
 	w := button1 width max:button2 width.
 	h := button1 height + button2 height + (Scroller defaultExtent y).
     ] ifFalse:[
@@ -223,7 +228,7 @@
 	].
 	h := upHeight + downHeight + (1 * 2) + (Scroller defaultExtent y).
 	w := upWidth max:downWidth.
-	style ~~ #normal ifTrue:[
+	StyleSheet name ~~ #normal ifTrue:[
 	    h := h + 4.
 	    w := w + 4
 	].
@@ -401,11 +406,11 @@
     ].
 
     thumbWidth := w.
-    style == #next ifTrue:[
+    StyleSheet name == #next ifTrue:[
 	thumbWidth := thumbWidth - (thumb borderWidth * 2).
 	thumbHeight := thumbHeight - 1
     ].
-    style == #motif ifTrue:[
+    StyleSheet name == #motif ifTrue:[
 	thumbHeight := thumbHeight - margin
     ].
 
@@ -440,7 +445,7 @@
     ].
     "buttons around thumb"
 
-style == #motif ifTrue:[
+StyleSheet name == #motif ifTrue:[
     sep2 := sep2 + 1
 ].
     button1 origin:(bwn @ bwn).