--- a/Scroller.st	Mon Oct 25 12:06:37 2004 +0200
+++ b/Scroller.st	Mon Oct 25 12:22:24 2004 +0200
@@ -1171,11 +1171,13 @@
     |handleX handleY l t lvl
      w "{ Class: SmallInteger }"
      h "{ Class: SmallInteger }"
-     clr|
+     clr xpStyle|
 
     (thumbHeight >= 100) ifTrue:[^ self].
     thumbFrame isNil ifTrue:[^ self].
 
+    xpStyle := styleSheet name == #winXP.
+
     w := thumbFrame width.
     h := thumbFrame height.
     l := thumbFrame left.
@@ -1185,7 +1187,11 @@
     (scrolling and:[thumbActiveColor notNil]) ifTrue:[clr := thumbActiveColor].
 
     self paint:clr.
-    self fillRectangleX:l y:t width:w height:h.
+    xpStyle ifTrue:[
+        self fillRectangleX:l+2 y:t+1 width:w-3 height:h-3.
+    ] ifFalse:[
+        self fillRectangleX:l y:t width:w height:h.
+    ].
 
     lvl := thumbLevel.
     scrolling ifTrue:[
@@ -1203,7 +1209,14 @@
 
     thumbFrameColor notNil ifTrue:[
         self paint:thumbFrameColor.
-        self displayRectangleX:l y:t width:w height:h.
+        xpStyle ifTrue:[
+            self displayLineFromX:l+2 y:t toX:l+w-2 y:t.
+            self displayLineFromX:l+1 y:t+1 toX:l+1 y:t+h-2.
+            self displayLineFromX:l+w-2 y:t+1 toX:l+w-2 y:t+h-2.
+            self displayLineFromX:l+2 y:t+h-2 toX:l+w-2 y:t+h-2.
+        ] ifFalse:[
+            self displayRectangleX:l y:t width:w height:h.
+        ].
     ].
 
     thumbImage notNil ifTrue:[
@@ -2586,5 +2599,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.174 2004-10-22 10:21:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.175 2004-10-25 10:22:24 cg Exp $'
 ! !