--- a/ScrollBar.st	Fri Mar 01 13:54:27 1996 +0100
+++ b/ScrollBar.st	Fri Mar 01 13:59:39 1996 +0100
@@ -66,11 +66,18 @@
 !ScrollBar class methodsFor:'style changes'!
 
 updateStyleCache
+    "extract values from the styleSheet and cache them in class variables"
+
+    <resource: #style (#scrollBarButtonPositions #scrollBarLevel
+                       #scrollBarScrollerBordered #scrollBarElementSpacing)>
+
     DefaultButtonPositions := StyleSheet at:'scrollBarButtonPositions' default:#bottom.
     DefaultLevel := StyleSheet at:'scrollBarLevel'.
     DefaultScrollerBordered := StyleSheet at:'scrollBarScrollerBordered' default:false.
     DefaultElementSpacing := StyleSheet at:'scrollBarElementSpacing' 
-					default:(StyleSheet is3D ifTrue:[1] ifFalse:[0]).
+                                        default:(StyleSheet is3D ifTrue:[1] ifFalse:[0]).
+
+    "Modified: 1.3.1996 / 13:46:29 / cg"
 ! !
 
 !ScrollBar methodsFor:'accessing'!
@@ -598,5 +605,5 @@
 !ScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.21 1996-02-09 21:51:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.22 1996-03-01 12:59:39 cg Exp $'
 ! !