SteppingSlider.st
changeset 4010 34cc746561a6
parent 2129 811701a228c5
--- a/SteppingSlider.st	Sat Feb 05 13:00:12 2011 +0100
+++ b/SteppingSlider.st	Sat Feb 05 18:37:29 2011 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg2' }"
 
 ScrollBar subclass:#SteppingSlider
@@ -166,7 +165,7 @@
 !SteppingSlider methodsFor:'event handling'!
 
 keyPress:key x:x y:y
-    <resource: #keyboard (#CursorRight #CursorUp #CursorLeft #CursorDown $+ $-)>
+    <resource: #keyboard (#CursorRight #CursorUp #CursorLeft #CursorDown #+ #-)>
 
     |step|
 "/    enabled ifFalse:[^ self].
@@ -265,5 +264,9 @@
 !SteppingSlider class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SteppingSlider.st,v 1.13 2002-08-08 12:35:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SteppingSlider.st,v 1.14 2011-02-05 17:37:29 stefan Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg2/SteppingSlider.st,v 1.14 2011-02-05 17:37:29 stefan Exp $'
 ! !