# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 996084843 -7200
# Node ID ee3be6ecc37a2290ab18b8da6bc1df0f778b7e25
# Parent  7e268ddd2ab2a46decdcec3680654035fc606ecc
Move left with cursor left and right with cursor right

diff -r 7e268ddd2ab2 -r ee3be6ecc37a Slider.st
--- a/Slider.st	Wed Jul 25 19:55:35 2001 +0200
+++ b/Slider.st	Wed Jul 25 20:14:03 2001 +0200
@@ -253,7 +253,7 @@
 !
 
 keyPress:key x:x y:y
-    <resource: #keyboard (#CursorRight #CursorUp #CursorLeft #CursorDown)>
+    <resource: #keyboard (#CursorRight #CursorUp #CursorLeft #CursorDown #+ #-)>
 
     |step|
 
@@ -261,17 +261,17 @@
 
     step := keyboardStep ? (rangeEnd - rangeStart / 10).
 
-    (key == #CursorRight
+    (key == #CursorLeft
     or:[key == #CursorUp
-    or:[key == $+]]) ifTrue:[
-        self scrollStep:step.
+    or:[key == $-]]) ifTrue:[
+        self scrollStep:step negated.
         ^ self
     ].
 
-    (key == #CursorLeft
+    (key == #CursorRight
     or:[key == #CursorDown
-    or:[key == $-]]) ifTrue:[
-        self scrollStep:step negated.
+    or:[key == $+]]) ifTrue:[
+        self scrollStep:step.
         ^ self
     ].
 
@@ -396,5 +396,5 @@
 !Slider class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Slider.st,v 1.32 2001-05-17 11:12:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Slider.st,v 1.33 2001-07-25 18:14:03 stefan Exp $'
 ! !