Scroller.st
changeset 1166 dc68cd54225b
parent 1133 4395bae7e94e
child 1167 90104d2f94d6
--- a/Scroller.st	Sat Mar 29 11:57:46 1997 +0100
+++ b/Scroller.st	Sat Mar 29 12:01:57 1997 +0100
@@ -1059,7 +1059,7 @@
 
     entered := true.
     frameBeforeMove isNil ifTrue:[
-        originBeforeMove := thumbOrigin.
+        originBeforeMove := self thumbOrigin.
 
         (ghostColor notNil 
         or:[ghostFrameColor notNil
@@ -1105,7 +1105,7 @@
         ]
     ]
 
-    "Modified: 19.3.1997 / 11:30:12 / cg"
+    "Modified: 29.3.1997 / 12:01:20 / cg"
 !
 
 buttonMultiPress:button x:x y:y
@@ -1916,5 +1916,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.79 1997-03-19 10:31:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.80 1997-03-29 11:01:57 cg Exp $'
 ! !