ListView.st
changeset 4203 102963c568a9
parent 4201 2e9d9ba4a215
child 4245 4c62eadf9898
--- 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 $'
 ! !