--- a/HStepSlider.st	Thu Jan 25 12:06:56 1996 +0100
+++ b/HStepSlider.st	Wed Jan 31 03:28:01 1996 +0100
@@ -36,7 +36,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/HStepSlider.st,v 1.5 1995-11-11 16:28:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/HStepSlider.st,v 1.6 1996-01-31 02:28:01 cg Exp $'
 !
 
 documentation
@@ -107,11 +107,11 @@
 !HorizontalSteppingSlider methodsFor:'events'!
 
 keyPress:key x:x y:y
-    key == #CursorRight ifTrue:[
+    (key == #CursorRight or:[key == #CursorUp]) ifTrue:[
 	self scrollStepUp.
 	^ self
     ].
-    key == #CursorLeft ifTrue:[
+    (key == #CursorLeft or:[key == #CursorDown]) ifTrue:[
 	self scrollStepDown.
 	^ self
     ].

--- a/HorizontalSteppingSlider.st	Thu Jan 25 12:06:56 1996 +0100
+++ b/HorizontalSteppingSlider.st	Wed Jan 31 03:28:01 1996 +0100
@@ -36,7 +36,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSteppingSlider.st,v 1.5 1995-11-11 16:28:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSteppingSlider.st,v 1.6 1996-01-31 02:28:01 cg Exp $'
 !
 
 documentation
@@ -107,11 +107,11 @@
 !HorizontalSteppingSlider methodsFor:'events'!
 
 keyPress:key x:x y:y
-    key == #CursorRight ifTrue:[
+    (key == #CursorRight or:[key == #CursorUp]) ifTrue:[
 	self scrollStepUp.
 	^ self
     ].
-    key == #CursorLeft ifTrue:[
+    (key == #CursorLeft or:[key == #CursorDown]) ifTrue:[
 	self scrollStepDown.
 	^ self
     ].