--- a/Scroller.st	Tue Oct 26 12:42:18 2004 +0200
+++ b/Scroller.st	Tue Oct 26 12:42:55 2004 +0200
@@ -1193,7 +1193,7 @@
     |handleX handleY l t lvl
      w "{ Class: SmallInteger }"
      h "{ Class: SmallInteger }"
-     clr clr2 xpStyle|
+     clr xpStyle|
 
     (thumbHeight >= 100) ifTrue:[^ self].
     thumbFrame isNil ifTrue:[^ self].
@@ -1234,9 +1234,8 @@
     self isMiniScroller ifTrue:[^ self].
 
     thumbFrameColor notNil ifTrue:[
+        self paint:thumbFrameColor.
         xpStyle ifTrue:[
-            clr2 := StyleSheet colorAt:#'scroller.thumbFrameColor2'.
-            self paint:clr2.
             (orientation == #vertical) ifTrue:[
                 self displayLineFromX:l+w-1 y:t+1 toX:l+w-1 y:t+h-4.
                 self displayLineFromX:l+1 y:t+h-2 toX:l+w-3 y:t+h-2.
@@ -1248,7 +1247,6 @@
                 self displayLineFromX:l+w-3 y:t+h-2 toX:l+w-3 y:t+h-2.
             ]
         ] ifFalse:[
-            self paint:thumbFrameColor.
             self displayRectangleX:l y:t width:w height:h.
         ].
     ].
@@ -2637,5 +2635,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.178 2004-10-26 10:42:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.179 2004-10-26 10:42:55 cg Exp $'
 ! !