--- a/SteppingSlider.st	Tue Aug 06 14:45:52 2002 +0200
+++ b/SteppingSlider.st	Thu Aug 08 14:35:34 2002 +0200
@@ -163,6 +163,33 @@
     "Modified: 28.5.1997 / 15:04:25 / cg"
 ! !
 
+!SteppingSlider methodsFor:'event handling'!
+
+keyPress:key x:x y:y
+    <resource: #keyboard (#CursorRight #CursorUp #CursorLeft #CursorDown $+ $-)>
+
+    |step|
+"/    enabled ifFalse:[^ self].
+
+    step := thumb keyboardStep ? stepIncrement.
+
+    (key == #CursorLeft
+    or:[key == #CursorUp
+    or:[key == $-]]) ifTrue:[
+        self scrollStep:step negated.
+        ^ self
+    ].
+
+    (key == #CursorRight
+    or:[key == #CursorDown
+    or:[key == $+]]) ifTrue:[
+        self scrollStep:step.
+        ^ self
+    ].
+
+    super keyPress:key x:x y:y
+! !
+
 !SteppingSlider methodsFor:'initialization'!
 
 createElements
@@ -238,5 +265,5 @@
 !SteppingSlider class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SteppingSlider.st,v 1.12 2001-07-25 17:55:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SteppingSlider.st,v 1.13 2002-08-08 12:35:34 stefan Exp $'
 ! !