--- a/Scroller.st	Fri Feb 12 00:45:44 1999 +0100
+++ b/Scroller.st	Sat Feb 13 12:21:14 1999 +0100
@@ -19,7 +19,7 @@
 		tallyLevel tallyMarks fixThumbHeight frameBeforeMove ghostColor
 		ghostFrameColor ghostLevel rangeStart rangeEnd rangeStep entered
 		thumbActiveLevel originBeforeMove thumbImage enabled
-		enableChannel'
+		enableChannel keyboardStep'
 	classVariableNames:'HandleShadowForm HandleLightForm DefaultViewBackground
 		DefaultShadowColor DefaultLightColor DefaultThumbColor
 		DefaultThumbShadowColor DefaultThumbLightColor
@@ -405,6 +405,22 @@
 
 !Scroller methodsFor:'accessing'!
 
+keyboardStep
+    "return the scrollers keyboard step. If non-nil,
+     thats the stepping value used with cursorUp/cursorDown keys.
+     (not used with Scrollers, but provided for subclasses)"
+
+    ^ keyboardStep
+!
+
+keyboardStep:aNumber
+    "set the scrollers keyboard step. If non-nil,
+     thats the stepping value used with cursorUp/cursorDown keys.
+     (not used with Scrollers, but provided for subclasses)"
+
+    keyboardStep := aNumber
+!
+
 start 
     "return the scrollers range min.
      (not used with Scrollers, but provided for subclasses)"
@@ -2253,5 +2269,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.113 1999-01-19 15:39:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.114 1999-02-13 11:21:14 cg Exp $'
 ! !