--- a/DirectoryContentsBrowser.st	Thu Nov 25 09:19:54 2004 +0100
+++ b/DirectoryContentsBrowser.st	Thu Nov 25 10:20:53 2004 +0100
@@ -2414,8 +2414,14 @@
 !
 
 updateStep
-    self windowGroup sensor anyButtonPressed ifTrue:[ ^ self ].
-    self windowGroup sensor shiftDown ifTrue:[ ^ self ].
+    |sensor|
+
+    sensor := self windowGroup sensor.
+    (sensor anyButtonPressed or:[sensor shiftDown]) ifTrue:[ 
+        "/ no update while scrolling
+        self changeSema waitWithTimeoutMs:(self class updateTaskCyleTime).
+        ^ self 
+    ].
     
     AbortOperationRequest handle:[
         "if directory changed all running update flags must be reset"
@@ -3159,5 +3165,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.171 2004-10-19 17:09:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.172 2004-11-25 09:20:53 cg Exp $'
 ! !