--- a/Scroller.st Mon Oct 25 12:22:24 2004 +0200
+++ b/Scroller.st Mon Oct 25 12:23:19 2004 +0200
@@ -1187,7 +1187,7 @@
(scrolling and:[thumbActiveColor notNil]) ifTrue:[clr := thumbActiveColor].
self paint:clr.
- xpStyle ifTrue:[
+ (xpStyle and:[self isMiniScroller not]) ifTrue:[
self fillRectangleX:l+2 y:t+1 width:w-3 height:h-3.
] ifFalse:[
self fillRectangleX:l y:t width:w height:h.
@@ -2599,5 +2599,5 @@
!Scroller class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.175 2004-10-25 10:22:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.176 2004-10-25 10:23:19 cg Exp $'
! !