--- a/Slider.st	Thu May 17 13:10:34 2001 +0200
+++ b/Slider.st	Thu May 17 13:12:04 2001 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libwidg2' }"
+
 Scroller subclass:#Slider
 	instanceVariableNames:'sliderHeight'
 	classVariableNames:''
@@ -52,7 +54,7 @@
 
         top := StandardSystemView new extent:200@200.
         s := Slider in:top.
-        s origin:(0.0@0.0) corner:(20@1.0).
+        s origin:(0.0@0.0) corner:(15@1.0).
         s scrollAction:[:percent | Transcript show:'moved to: '; showCR:percent asFloat].
         top open
                                                                         [exEnd]
@@ -63,7 +65,7 @@
 
         top := StandardSystemView new extent:200@200.
         s := HorizontalSlider in:top.
-        s origin:(0.0@0.0) corner:(1.0@20).
+        s origin:(0.0@0.0) corner:(1.0@15).
         s scrollAction:[:percent | Transcript show:'moved to: '; showCR:percent asFloat].
         top open
                                                                         [exEnd]
@@ -251,6 +253,8 @@
 !
 
 keyPress:key x:x y:y
+    <resource: #keyboard (#CursorRight #CursorUp #CursorLeft #CursorDown)>
+
     |step|
 
     enabled ifFalse:[^ self].
@@ -272,8 +276,6 @@
     ].
 
     super keyPress:key x:x y:y
-
-
 ! !
 
 !Slider methodsFor:'forced scroll'!
@@ -394,5 +396,5 @@
 !Slider class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Slider.st,v 1.31 2000-01-17 11:15:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Slider.st,v 1.32 2001-05-17 11:12:04 cg Exp $'
 ! !