--- a/Scroller.st	Sat Jun 08 11:51:09 1996 +0200
+++ b/Scroller.st	Mon Jun 10 14:03:06 1996 +0200
@@ -1215,13 +1215,13 @@
     "mouse-button left view
      redraw thumb if enteredColor ~~ thumbColor"
 
-    (entered and:[state == 0]) ifTrue: [
-	entered := false.
-	self drawThumb
+    (entered and:[(state bitAnd:(device anyButtonMotionMask)) == 0]) ifTrue: [
+        entered := false.
+        self drawThumb
     ].
 
-    "Modified: 6.3.1996 / 17:27:12 / cg"
     "Created: 6.3.1996 / 17:31:16 / cg"
+    "Modified: 10.6.1996 / 14:01:33 / cg"
 !
 
 redraw
@@ -1780,5 +1780,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.59 1996-05-29 14:38:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.60 1996-06-10 12:03:06 cg Exp $'
 ! !