equal
deleted
inserted
replaced
2964 ! |
2964 ! |
2965 |
2965 |
2966 scrollHorizontalTo:aPixelOffset |
2966 scrollHorizontalTo:aPixelOffset |
2967 "change origin to make aPixelOffset be the left col" |
2967 "change origin to make aPixelOffset be the left col" |
2968 |
2968 |
2969 |orgX| |
2969 |nPixel| |
2970 |
2970 |
2971 orgX := leftOffset. |
2971 nPixel := aPixelOffset - leftOffset. |
2972 |
2972 nPixel ~~ 0 ifTrue:[ |
2973 (aPixelOffset < orgX) ifTrue:[ |
2973 self scrollTo:(viewOrigin + (nPixel @ 0)) redraw:true |
2974 self scrollLeft:(orgX - aPixelOffset) |
2974 ] |
2975 ] ifFalse:[ |
2975 |
2976 (aPixelOffset > orgX) ifTrue:[ |
2976 "Modified: / 3.3.1999 / 22:55:20 / cg" |
2977 self scrollRight:(aPixelOffset - orgX) |
|
2978 ] |
|
2979 ] |
|
2980 ! |
2977 ! |
2981 |
2978 |
2982 scrollLeft |
2979 scrollLeft |
2983 "scroll left by one character |
2980 "scroll left by one character |
2984 - question is how much is a good for variable fonts" |
2981 - question is how much is a good for variable fonts" |
3865 ! ! |
3862 ! ! |
3866 |
3863 |
3867 !ListView class methodsFor:'documentation'! |
3864 !ListView class methodsFor:'documentation'! |
3868 |
3865 |
3869 version |
3866 version |
3870 ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.184 1999-01-10 17:02:40 cg Exp $' |
3867 ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.185 1999-03-03 21:55:47 cg Exp $' |
3871 ! ! |
3868 ! ! |