--- a/ListView.st Mon Mar 01 19:42:08 1999 +0100
+++ b/ListView.st Wed Mar 03 22:55:47 1999 +0100
@@ -2966,17 +2966,14 @@
scrollHorizontalTo:aPixelOffset
"change origin to make aPixelOffset be the left col"
- |orgX|
-
- orgX := leftOffset.
-
- (aPixelOffset < orgX) ifTrue:[
- self scrollLeft:(orgX - aPixelOffset)
- ] ifFalse:[
- (aPixelOffset > orgX) ifTrue:[
- self scrollRight:(aPixelOffset - orgX)
- ]
+ |nPixel|
+
+ nPixel := aPixelOffset - leftOffset.
+ nPixel ~~ 0 ifTrue:[
+ self scrollTo:(viewOrigin + (nPixel @ 0)) redraw:true
]
+
+ "Modified: / 3.3.1999 / 22:55:20 / cg"
!
scrollLeft
@@ -3867,5 +3864,5 @@
!ListView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.184 1999-01-10 17:02:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.185 1999-03-03 21:55:47 cg Exp $'
! !