--- a/DirectoryContentsBrowser.st Tue Nov 19 18:12:51 2002 +0100
+++ b/DirectoryContentsBrowser.st Tue Nov 19 18:48:12 2002 +0100
@@ -762,12 +762,6 @@
matchBlock := filterBlock.
!
-updateColumnsTask
- "return the value of the instance variable 'updateColumnsTask' (automatically generated)"
-
- ^ updateColumnsTask
-!
-
updateColumnsTask:something
"set the value of the instance variable 'updateColumnsTask' (automatically generated)"
@@ -1712,6 +1706,21 @@
aItem resetItemForChanges.
!
+updateColumnsTask
+ |somethingToDo|
+
+ [true] whileTrue:[
+ somethingToDo := false.
+ (self directory notNil) ifTrue:[
+ somethingToDo := self updateColumnsTaskCycle.
+ Processor yield.
+ ].
+ somethingToDo ifFalse:[
+ Delay waitForSeconds:5
+ ].
+ ]
+!
+
updateColumnsTaskCycle
" update items in the foolowing order
@@ -1827,22 +1836,12 @@
!
updateColumnsTaskStart
-
- | somethigToDo process|
+ |process|
self directory notNil ifTrue:[
process := [
[
- [true] whileTrue:[
- somethigToDo := false.
- (self directory notNil) ifTrue:[
- somethigToDo := self updateColumnsTaskCycle.
- Processor yield.
- ].
- somethigToDo ifFalse:[
- Delay waitForSeconds:5
- ].
- ]
+ self updateColumnsTask
] valueNowOrOnUnwindDo:[
self updateColumnsTask:nil.
]
@@ -2759,5 +2758,5 @@
!DirectoryContentsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.56 2002-11-19 14:43:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.57 2002-11-19 17:48:12 cg Exp $'
! !