diff -r 4ac8a54d1b1c -r abd28e2f66ca ListView.st --- a/ListView.st Thu Nov 21 15:19:02 1996 +0100 +++ b/ListView.st Thu Nov 21 17:44:41 1996 +0100 @@ -1252,24 +1252,27 @@ |listSize newOrigin| - shown ifFalse:[^ self]. - list isNil ifTrue:[^ self]. - - listSize := self numberOfLines. - " - if we are beyond the end, scroll up a bit - " - ((firstLineShown + nFullLinesShown) > listSize) ifTrue:[ - newOrigin := listSize - nFullLinesShown + 1. - newOrigin < 1 ifTrue:[ - newOrigin := 1 + shown ifTrue:[ + list notNil ifTrue:[ + + listSize := self numberOfLines. + " + if we are beyond the end, scroll up a bit + " + ((firstLineShown + nFullLinesShown) > listSize) ifTrue:[ + newOrigin := listSize - nFullLinesShown + 1. + newOrigin < 1 ifTrue:[ + newOrigin := 1 + ]. + self scrollToLine: newOrigin. + ]. ]. - self scrollToLine: newOrigin. ]. ^ super contentsChanged "Modified: 18.11.1996 / 19:50:07 / stefan" + "Modified: 21.11.1996 / 17:43:55 / cg" ! keyPress:key x:x y:y @@ -3502,5 +3505,5 @@ !ListView class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.107 1996-11-18 19:58:25 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.108 1996-11-21 16:44:41 cg Exp $' ! !