--- a/Scroller.st	Thu Apr 26 14:24:21 2001 +0200
+++ b/Scroller.st	Mon Apr 30 14:39:51 2001 +0200
@@ -2455,6 +2455,12 @@
 
 !Scroller methodsFor:'queries'!
 
+isScrolling
+    "true, if thumb is being moved (by user)"
+
+    ^ scrolling
+!
+
 preferredExtent
     "return my preferredExtent"
 
@@ -2511,5 +2517,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.154 2001-04-04 08:18:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.155 2001-04-30 12:39:08 cg Exp $'
 ! !