--- a/ListView.st Wed Dec 15 11:54:57 2010 +0100
+++ b/ListView.st Wed Dec 15 11:55:24 2010 +0100
@@ -3586,21 +3586,21 @@
!
pageDown
- "change origin to display next page"
-
- super pageDown
+ "change origin to display the next page"
+
"/ self scrollTo:(viewOrigin + (0 @ height))
-
- "Modified: / 15-12-2010 / 10:06:19 / cg"
+ self scrollToLine:(self firstLineShown + nFullLinesShown)
+
+ "Modified: / 15-12-2010 / 10:12:37 / cg"
!
pageUp
- "change origin to display previous page"
-
- super pageUp
+ "change origin to display the previous page"
+
"/ self scrollTo:(viewOrigin - (0 @ height))
-
- "Modified: / 15-12-2010 / 10:05:37 / cg"
+ self scrollToLine:(self firstLineShown - nFullLinesShown)
+
+ "Modified: / 15-12-2010 / 10:12:41 / cg"
!
scrollDown:nLines
@@ -4632,9 +4632,9 @@
!ListView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.342 2010-12-15 09:06:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.343 2010-12-15 10:55:24 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.342 2010-12-15 09:06:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.343 2010-12-15 10:55:24 cg Exp $'
! !