Scroller.st
changeset 3094 7e860d780018
parent 3093 201f489cde64
child 3103 3ff619dbf7d0
--- 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 $'
 ! !