--- a/Scroller.st	Tue Sep 14 17:28:47 2004 +0200
+++ b/Scroller.st	Tue Sep 14 17:30:16 2004 +0200
@@ -474,12 +474,8 @@
     rangeEnd := stop.
 
     rangeStart = rangeEnd ifTrue:[
-        self halt:'invalud slider range (start = stop)'.
-        rangeStep isNil ifTrue:[
-            rangeEnd := rangeStart + 1
-        ] ifFalse:[
-            rangeEnd := rangeStart + rangeStep.
-        ]
+        self error:'invalid slider range (start = stop)' mayProceed:true.
+        rangeEnd := rangeStart + (rangeStep ? 1).
     ].
 
     org < rangeStart ifTrue:[
@@ -2585,5 +2581,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.170 2004-09-14 15:12:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.171 2004-09-14 15:30:16 cg Exp $'
 ! !