--- a/DirectoryContentsBrowser.st	Mon Apr 01 22:03:15 2013 +0200
+++ b/DirectoryContentsBrowser.st	Mon Apr 01 22:25:58 2013 +0200
@@ -2647,39 +2647,39 @@
 
     sensor := self windowGroup sensor.
     (sensor anyButtonPressed or:[sensor shiftDown]) ifTrue:[
-        Processor yield.
-
-        "/ no update while scrolling
-        timedOut := ( changeSema waitWithTimeoutMs:(self class updateTaskCyleTime milliseconds) ) isNil.
-        timedOut ifFalse:[changeSema signal].
-        ^ self 
+	Processor yield.
+
+	"/ no update while scrolling
+	timedOut := ( changeSema waitWithTimeoutMs:(self class updateTaskCyleTime asMilliseconds) ) isNil.
+	timedOut ifFalse:[changeSema signal].
+	^ self
     ].
 
     AbortOperationRequest handle:[
-        "/ to get out of a debugger loop...
-        self debugMessage:'got an abort signal'.
-        self directoryContentsChangeFlag:false.
-        self filterChangeFlag:false.
-        self sortBlockChangeFlag:false.
+	"/ to get out of a debugger loop...
+	self debugMessage:'got an abort signal'.
+	self directoryContentsChangeFlag:false.
+	self filterChangeFlag:false.
+	self sortBlockChangeFlag:false.
     ] do:[
-        (updatingColumns == true) ifTrue:[
-            timedOut := false
-        ] ifFalse:[
-            self debugMessage:'sema wait'.
-            timedOut := (changeSema waitWithTimeoutMs:(self class updateTaskCyleTime asMilliseconds)) isNil.
-            self debugMessage:'timedOut:', timedOut asString.
-        ].
-
-        (filterChangeFlag 
-        or:[ sortBlockChangeFlag
-        or:[ directoryChangeFlag
-        or:[ directoryContentsChangeFlag 
-        or:[ updatingColumns == true 
-        or:[ timedOut ]]]]]) ifTrue:[
-            accessLock critical:[
-                self updateAfterTimeout:timedOut.
-            ].
-        ].
+	(updatingColumns == true) ifTrue:[
+	    timedOut := false
+	] ifFalse:[
+	    self debugMessage:'sema wait'.
+	    timedOut := (changeSema waitWithTimeoutMs:(self class updateTaskCyleTime asMilliseconds)) isNil.
+	    self debugMessage:'timedOut:', timedOut asString.
+	].
+
+	(filterChangeFlag
+	or:[ sortBlockChangeFlag
+	or:[ directoryChangeFlag
+	or:[ directoryContentsChangeFlag
+	or:[ updatingColumns == true
+	or:[ timedOut ]]]]]) ifTrue:[
+	    accessLock critical:[
+		self updateAfterTimeout:timedOut.
+	    ].
+	].
     ].
 
     "Modified: / 20-03-2012 / 13:07:22 / cg"
@@ -3424,10 +3424,10 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.254 2013-02-20 15:24:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.255 2013-04-01 20:25:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.254 2013-02-20 15:24:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.255 2013-04-01 20:25:58 cg Exp $'
 ! !