Scroller.st
changeset 4036 02c9d070f9ec
parent 4032 edc14bf0c5a5
child 4038 bb2c21273645
--- a/Scroller.st	Sun Oct 25 00:43:26 2009 +0200
+++ b/Scroller.st	Sun Oct 25 00:58:51 2009 +0200
@@ -1375,11 +1375,11 @@
         styleSheet name == #winVista ifTrue:[
             self paint:(Color greyByte:16rE3).
             (orientation == #vertical) ifTrue:[
+                self displayLineFromX:0 y:0 toX:0 y:height-1.
                 self displayLineFromX:1 y:0 toX:1 y:height-1.
-                self displayLineFromX:2 y:0 toX:2 y:height-1.
             ] ifFalse:[
+                self displayLineFromX:0 y:0 toX:width-1 y:0.
                 self displayLineFromX:0 y:1 toX:width-1 y:1.
-                self displayLineFromX:0 y:2 toX:width-1 y:2.
             ].
         ].
 
@@ -2742,9 +2742,9 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.194 2009-10-24 19:51:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.195 2009-10-24 22:58:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.194 2009-10-24 19:51:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.195 2009-10-24 22:58:51 cg Exp $'
 ! !