--- a/SimpleView.st	Mon Sep 28 11:27:16 1998 +0200
+++ b/SimpleView.st	Mon Sep 28 13:51:43 1998 +0200
@@ -7121,6 +7121,12 @@
     "Modified: 13.9.1996 / 14:09:32 / cg"
 !
 
+scrollToLeft
+    "move viewOrigin to the left"
+
+    self scrollHorizontalTo:0
+!
+
 scrollToPercent:originAsPercent
     "scroll to a position given in percent of total (x and y as a Point)"
 
@@ -7143,6 +7149,19 @@
     "Modified: 5.8.1996 / 12:42:57 / stefan"
 !
 
+scrollToRight
+    "move viewOrigin to the right"
+
+    |wCont|
+
+    wCont := self widthOfContents.
+    transformation notNil ifTrue:[
+        wCont := transformation applyScaleX:wCont.
+    ].
+    self scrollHorizontalTo:((wCont - self innerWidth) max:0)
+
+!
+
 scrollToTop
     "move viewOrigin to top"
 
@@ -7885,6 +7904,6 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.275 1998-09-18 20:19:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.276 1998-09-28 11:51:43 cg Exp $'
 ! !
 SimpleView initialize!