added default implementations for pageUp / pageDown
and scrollToBottom (these scroll based upon the views height)
--- 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!