--- a/Scroller.st	Fri May 24 20:13:23 1996 +0200
+++ b/Scroller.st	Sat May 25 12:10:35 1996 +0200
@@ -393,15 +393,43 @@
     "set the scrollers range min.
      (not used with Scrollers, but provided for subclasses)"
 
-    rangeStart := start.
+    self start:start stop:rangeEnd.
+
+    "Modified: 25.5.1996 / 11:28:22 / cg"
 !
 
 start:start stop:stop
     "set the range.
      (not used with Scrollers, but provided for subclasses)"
 
+    |org|
+
+    org := self thumbOrigin.
+
     rangeStart := start.
-    rangeEnd := stop
+    rangeEnd := stop.
+
+    org < rangeStart ifTrue:[
+        org := rangeStart
+    ] ifFalse:[
+        org > rangeEnd ifTrue:[
+            org := rangeEnd
+        ]
+    ].
+    self thumbOrigin:org.
+
+    "Modified: 25.5.1996 / 11:34:56 / cg"
+!
+
+start:start stop:stop step:step
+    "set the range.
+     (not used with Scrollers, but provided for subclasses)"
+
+    self start:start stop:stop.
+    rangeStep := step.
+
+    "Created: 25.5.1996 / 11:24:09 / cg"
+    "Modified: 25.5.1996 / 11:27:43 / cg"
 !
 
 step
@@ -429,7 +457,9 @@
     "set the scrollers range max.
      (not used with Scrollers, but provided for subclasses)"
 
-    rangeEnd := stop
+    self start:rangeStart stop:stop.
+
+    "Modified: 25.5.1996 / 11:28:35 / cg"
 !
 
 thumbFrame
@@ -1729,5 +1759,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.51 1996-05-18 15:42:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.52 1996-05-25 10:10:35 cg Exp $'
 ! !