diff -r d36196663d14 -r 6c7aaf229fe6 DirectoryContentsBrowser.st --- a/DirectoryContentsBrowser.st Tue Feb 25 16:03:29 2003 +0100 +++ b/DirectoryContentsBrowser.st Wed Feb 26 13:39:26 2003 +0100 @@ -2226,23 +2226,25 @@ updateStep AbortSignal handle:[ - self debugMessage:'get an abort signal'. + self debugMessage:'got an abort signal'. self directoryContentsChangeFlag:false. self filterChangeFlag:false. self sortBlockChangeFlag:false. ] do:[ - | timeOut | + | timedOut | + self debugMessage:'sema wait'. - timeOut := (self changeSema waitWithTimeoutMs:(self class updateTaskCyleTime)) isNil. - self debugMessage:'timeOut:', timeOut asString. - (self filterChangeFlag or:[self sortBlockChangeFlag or:[self directoryChangeFlag]]) ifTrue:[ - | oldCursor | - oldCursor := self window cursor. - self showCursor:(Cursor execute). - self updateBlock value:timeOut. - self showCursor:oldCursor. + timedOut := (self changeSema waitWithTimeoutMs:(self class updateTaskCyleTime)) isNil. + self debugMessage:'timedOut:', timedOut asString. + + (self filterChangeFlag + or:[self sortBlockChangeFlag + or:[self directoryChangeFlag]]) ifTrue:[ + self withCursor:Cursor execute do:[ + self updateBlock value:timedOut. + ] ] ifFalse:[ - self updateBlock value:timeOut. + self updateBlock value:timedOut. ] ] ! ! @@ -2867,5 +2869,5 @@ !DirectoryContentsBrowser class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.81 2003-02-25 12:37:06 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.82 2003-02-26 12:39:26 cg Exp $' ! !