--- a/Scroller.st	Tue Mar 16 18:37:42 1999 +0100
+++ b/Scroller.st	Tue Mar 16 18:42:33 1999 +0100
@@ -1412,8 +1412,6 @@
 
     |pos curr curr2 limit1 limit2|
 
-    self changeCursorFor:(x@y).
-
     (orientation == #vertical) ifTrue:[
         curr := y.
         curr2 := y - (thumbFrame height // 2).
@@ -1437,14 +1435,6 @@
     ].
 
     self startMove.
-"/    frameBeforeMove := thumbFrame insetBy:1@1.
-"/    originBeforeMove := thumbOrigin.
-"/
-"/    (orientation == #vertical) ifTrue:[
-"/        limit2 := thumbFrame top
-"/    ] ifFalse:[
-"/        limit2 := thumbFrame left
-"/    ].
 
     self thumbOrigin:(self percentFromAbs:pos).
     self tellOthers.
@@ -1457,6 +1447,9 @@
     pressOffset := curr - limit2.
     scrolling := true.
 
+    self changeCursorFor:(x@y).
+
+
     "Modified: / 19.3.1997 / 11:29:08 / cg"
     "Modified: / 2.2.1998 / 23:35:18 / stefan"
 !
@@ -1480,7 +1473,7 @@
         sensor := self sensor.
 
         (((frm containsPoint:p) and:[sensor notNil and:[sensor leftButtonPressed]])
-         or:[sensor notNil and:[sensor shiftDown]]) ifTrue:[ 
+         "or:[sensor notNil and:[sensor shiftDown]]") ifTrue:[ 
             orientation == #horizontal ifTrue:[
                 which := #xMarker
             ] ifFalse:[
@@ -2332,5 +2325,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.118 1999-03-16 17:37:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.119 1999-03-16 17:42:33 cg Exp $'
 ! !