# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 842633663 -7200
# Node ID c7e31a4531924eb187d297ed9e925b1cec1af102
# Parent  5605bf1b10b9b27d37daa90ff971519419a12982
added default implementations for pageUp / pageDown
and scrollToBottom (these scroll based upon the views height)

diff -r 5605bf1b10b9 -r c7e31a453192 SimpleView.st
--- a/SimpleView.st	Fri Sep 13 18:46:18 1996 +0200
+++ b/SimpleView.st	Fri Sep 13 18:54:23 1996 +0200
@@ -5725,6 +5725,18 @@
     ^ (device horizontalPixelPerMillimeter * 20) asInteger
 !
 
+pageDown
+    self scrollDown:(self innerHeight)
+
+    "Created: 13.9.1996 / 14:06:54 / cg"
+!
+
+pageUp
+    self scrollUp:(self innerHeight)
+
+    "Created: 13.9.1996 / 14:07:01 / cg"
+!
+
 scrollDown
     "scroll down by some amount; this is called when the scrollbars
      scroll-step down button is pressed."
@@ -5803,6 +5815,13 @@
     "Modified: 20.8.1996 / 17:35:37 / stefan"
 !
 
+scrollToBottom
+    self scrollTo:0 @ (self heightOfContents - self innerHeight)
+
+    "Created: 13.9.1996 / 14:08:03 / cg"
+    "Modified: 13.9.1996 / 14:09:32 / cg"
+!
+
 scrollToPercent:originAsPercent
     "scroll to a position given in percent of total (x and y as a Point)"
 
@@ -5907,6 +5926,7 @@
      ^ self scrollTo:newOrigin redraw:true
 
     "Modified: 15.7.1996 / 11:35:08 / stefan"
+    "Modified: 13.9.1996 / 14:09:19 / cg"
 !
 
 scrollTo:newOrigin redraw:doRedraw
@@ -6440,6 +6460,6 @@
 !SimpleView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.141 1996-09-11 14:52:49 dq Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.142 1996-09-13 16:54:23 cg Exp $'
 ! !
 SimpleView initialize!