--- a/Scroller.st	Sat Apr 24 14:02:25 1999 +0200
+++ b/Scroller.st	Sat Apr 24 14:17:02 1999 +0200
@@ -342,19 +342,20 @@
     "extract values from the styleSheet and cache them in class variables"
 
     <resource: #style (#'scroller.viewBackground' #'scroller.fullViewBackground'
-		       #'scroller.thumbColor' 
-		       #'scroller.shadowColor' #'scroller.lightColor'
-		       #'scroller.thumbShadowColor' #'scroller.thumbLightColor'
-		       #'scroller.thumbHalfShadowColor' #'scroller.thumbHalfLightColor'
-		       #'scroller.thumbFrameColor' #'scroller.ghostColor'
-		       #'scroller.ghostLevel' #'scroller.ghostFrameColor'
-		       #'scroller.NTallyMarks' #'scroller.tallyLevel'
-		       #'scroller.level' #'scroller.borderWidth'
-		       #'scroller.thumbLevel' #'scroller.thumbInset'
-		       #'scroller.thumbFixHeight' #'scroller.thumbEdgeStyle'
-		       #'scroller.thumbEnteredColor' #'scroller.thumbActiveLevel'
-		       #'scroller.middleButtonJump' 
-		       #'scroller.newCursors')>
+                       #'scroller.thumbColor' 
+                       #'scroller.shadowColor' #'scroller.lightColor'
+                       #'scroller.thumbShadowColor' #'scroller.thumbLightColor'
+                       #'scroller.thumbHalfShadowColor' #'scroller.thumbHalfLightColor'
+                       #'scroller.thumbFrameColor' #'scroller.ghostColor'
+                       #'scroller.ghostLevel' #'scroller.ghostFrameColor'
+                       #'scroller.NTallyMarks' #'scroller.tallyLevel'
+                       #'scroller.level' #'scroller.borderWidth'
+                       #'scroller.thumbLevel' #'scroller.thumbInset'
+                       #'scroller.thumbFixHeight' #'scroller.thumbEdgeStyle'
+                       #'scroller.thumbEnteredColor' #'scroller.thumbActiveLevel'
+                       #'scroller.middleButtonJump' 
+                       #'scroller.newCursors' 
+                       #'scroller.thumbImage' #'scroller.handleImage')>
 
     DefaultViewBackground := StyleSheet colorAt:'scroller.viewBackground'.
     DefaultFullViewBackground := StyleSheet colorAt:'scroller.fullViewBackground'.
@@ -373,7 +374,7 @@
     DefaultTallyMarks := StyleSheet at:'scroller.NTallyMarks' default:0.
     DefaultTallyLevel := 0.
     DefaultTallyMarks ~~ 0 ifTrue:[
-	DefaultTallyLevel := StyleSheet at:'scroller.tallyLevel' default:1.
+        DefaultTallyLevel := StyleSheet at:'scroller.tallyLevel' default:1.
     ].
     DefaultLevel := StyleSheet at:'scroller.level' default:0.
     DefaultBorderWidth := StyleSheet at:'scroller.borderWidth' default:(StyleSheet at:'borderWidth').
@@ -388,10 +389,10 @@
     HandleImage := StyleSheet at:'scroller.handleImage'.
 
     StyleSheet fileReadFailed ifTrue:[
-	DefaultViewBackground := Grey.
-	DefaultThumbColor := White.
-	DefaultThumbFrameColor := Black.
-	DefaultInset := 1.
+        DefaultViewBackground := Grey.
+        DefaultThumbColor := White.
+        DefaultThumbFrameColor := Black.
+        DefaultInset := 1.
     ].
 
     SnapBackDistance := 30.
@@ -2307,5 +2308,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.122 1999-03-31 05:50:41 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.123 1999-04-24 12:17:02 cg Exp $'
 ! !