Scroller.st
changeset 3104 553d7ac81547
parent 3103 3ff619dbf7d0
child 3105 f6ff86b09d5b
--- 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 $'
 ! !