--- a/Scroller.st	Tue Apr 21 20:06:04 1998 +0200
+++ b/Scroller.st	Tue Apr 21 20:53:22 1998 +0200
@@ -1528,6 +1528,22 @@
     self tellOthers
 !
 
+scrollStep:delta
+    "step by some delta"
+
+    |oldOrg newOrg|
+
+    oldOrg := self thumbOrigin.
+    newOrg := ((oldOrg + delta) max:rangeStart) min:rangeEnd.
+    oldOrg ~= newOrg ifTrue:[
+        self thumbOrigin:newOrg.
+        self tellOthers.
+    ]
+
+    "Created: / 21.4.1998 / 20:51:57 / cg"
+    "Modified: / 21.4.1998 / 20:52:22 / cg"
+!
+
 scrollToBeginning
     "scroll to the beginning"
 
@@ -2117,5 +2133,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.100 1998-04-14 17:39:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.101 1998-04-21 18:53:22 cg Exp $'
 ! !