--- a/SteppingSlider.st	Tue Apr 21 21:00:17 1998 +0200
+++ b/SteppingSlider.st	Tue Apr 21 21:00:31 1998 +0200
@@ -230,16 +230,9 @@
 scrollStep:delta
     "step by some delta"
 
-    |oldOrg newOrg|
+    thumb scrollStep:delta
 
-    oldOrg := thumb thumbOrigin.
-    newOrg := ((oldOrg + delta) max:thumb start) min:thumb stop.
-    oldOrg ~= newOrg ifTrue:[
-        thumb thumbOrigin:newOrg.
-        thumb tellOthers.
-    ]
-
-    "Created: 28.5.1997 / 15:10:51 / cg"
+    "Modified: / 21.4.1998 / 20:52:49 / cg"
 !
 
 scrollStepDown
@@ -269,5 +262,5 @@
 !SteppingSlider class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SteppingSlider.st,v 1.9 1997-05-28 14:21:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SteppingSlider.st,v 1.10 1998-04-21 19:00:31 cg Exp $'
 ! !