# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 920498147 -3600
# Node ID 4feaf69d64f03263d9e486478271a609e588bee4
# Parent  ab3c4ee454989c046bb0a4fbe4a66c8c2054a123
checkin from browser

diff -r ab3c4ee45498 -r 4feaf69d64f0 ListView.st
--- 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 $'
 ! !