--- a/Scroller.st	Fri Feb 14 16:50:11 1997 +0100
+++ b/Scroller.st	Fri Feb 14 16:51:25 1997 +0100
@@ -11,26 +11,26 @@
 "
 
 View subclass:#Scroller
-        instanceVariableNames:'thumbOrigin thumbHeight thumbColor thumbFrameColor scrollAction
-                orientation thumbFrame thumbLevel scrolling pressOffset
-                synchronousOperation shadowForm lightForm inset thumbShadowColor
-                thumbLightColor thumbEdgeStyle thumbHalfShadowColor
-                thumbHalfLightColor thumbEnteredColor thumbFrameSizeDifference
-                tallyLevel tallyMarks fixThumbHeight frameBeforeMove ghostColor
-                ghostFrameColor ghostLevel rangeStart rangeEnd rangeStep entered
-                thumbActiveLevel'
-        classVariableNames:'HandleShadowForm HandleLightForm DefaultViewBackground
-                DefaultShadowColor DefaultLightColor DefaultThumbColor
-                DefaultThumbShadowColor DefaultThumbLightColor
-                DefaultThumbHalfShadowColor DefaultThumbHalfLightColor
-                DefaultHalfShadowColor DefaultHalfLightColor DefaultTallyMarks
-                DefaultTallyLevel DefaultLevel DefaultBorderWidth
-                DefaultThumbLevel DefaultInset DefaultThumbFrameColor
-                DefaultGhostColor DefaultGhostFrameColor DefaultGhostLevel
-                DefaultFixThumbHeight DefaultEdgeStyle DefaultFullViewBackground
-                DefaultThumbEnteredColor DefaultThumbActiveLevel'
-        poolDictionaries:''
-        category:'Views-Interactors'
+	instanceVariableNames:'thumbOrigin thumbHeight thumbColor thumbFrameColor scrollAction
+		orientation thumbFrame thumbLevel scrolling pressOffset
+		synchronousOperation shadowForm lightForm inset thumbShadowColor
+		thumbLightColor thumbEdgeStyle thumbHalfShadowColor
+		thumbHalfLightColor thumbEnteredColor thumbFrameSizeDifference
+		tallyLevel tallyMarks fixThumbHeight frameBeforeMove ghostColor
+		ghostFrameColor ghostLevel rangeStart rangeEnd rangeStep entered
+		thumbActiveLevel'
+	classVariableNames:'HandleShadowForm HandleLightForm DefaultViewBackground
+		DefaultShadowColor DefaultLightColor DefaultThumbColor
+		DefaultThumbShadowColor DefaultThumbLightColor
+		DefaultThumbHalfShadowColor DefaultThumbHalfLightColor
+		DefaultHalfShadowColor DefaultHalfLightColor DefaultTallyMarks
+		DefaultTallyLevel DefaultLevel DefaultBorderWidth
+		DefaultThumbLevel DefaultInset DefaultThumbFrameColor
+		DefaultGhostColor DefaultGhostFrameColor DefaultGhostLevel
+		DefaultFixThumbHeight DefaultEdgeStyle DefaultFullViewBackground
+		DefaultThumbEnteredColor DefaultThumbActiveLevel'
+	poolDictionaries:''
+	category:'Views-Interactors'
 !
 
 !Scroller class methodsFor:'documentation'!
@@ -1344,17 +1344,26 @@
     |org|
 
     org := self thumbOrigin.
+
+    "
+     the ST-80 way of notifying scrolls
+    "
+    self sendChangeMessageWith:org.
+
     "
      the ST/X way of notifying scrolls
     "
     scrollAction notNil ifTrue:[
         scrollAction value:org 
     ].
-    "
-     the ST-80 way of notifying scrolls
-    "
-    self sendChangeMessageWith:org.
+
+    "/
+    "/ this will vanish - the scroller should share
+    "/ a valueHolder with the scrolledView.
+    "/
     self changed:#scrollerPosition.
+
+    "Modified: 14.2.1997 / 16:47:58 / cg"
 ! !
 
 !Scroller methodsFor:'initialization'!
@@ -1838,5 +1847,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.73 1997-02-13 21:43:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.74 1997-02-14 15:51:25 cg Exp $'
 ! !