Something like
visibleRows := self container calculateExactVisibleRows.
numberOfRows := self dataSource numberOfRows.
interval := (visibleRows / numberOfRows) asFloat.
delta := 1/numberOfRows.
pageDelta := ((visibleRows-1) floor)*delta.
self verticalScrollBar
scrollDelta: delta pageDelta: pageDelta;
interval: intervalpagedelta is still off first time. Stephan
