--- a/Scroller.st Tue Oct 26 12:39:52 2004 +0200
+++ b/Scroller.st Tue Oct 26 12:42:18 2004 +0200
@@ -1239,12 +1239,12 @@
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 y:t+h-2 toX:l+w-3 y:t+h-2.
+ self displayLineFromX:l+1 y:t+h-2 toX:l+w-3 y:t+h-2.
self displayLineFromX:l+w-2 y:t+h-3 toX:l+w-2 y:t+h-3.
"/ self displayLineFromX:l-2 y:t+h-3 toX:l-2 y:t+h-3.
] ifFalse:[
- self displayLineFromX:l+1 y:t+h-1 toX:l+w-4 y:t+h-1.
- self displayLineFromX:l+w-2 y:t toX:l+w-2 y:t+h-3.
+ self displayLineFromX:l+2 y:t+h-1 toX:l+w-4 y:t+h-1.
+ self displayLineFromX:l+w-2 y:t+1 toX:l+w-2 y:t+h-3.
self displayLineFromX:l+w-3 y:t+h-2 toX:l+w-3 y:t+h-2.
]
] ifFalse:[
@@ -2637,5 +2637,5 @@
!Scroller class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.177 2004-10-26 10:39:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.178 2004-10-26 10:42:18 cg Exp $'
! !