# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1037728092 -3600
# Node ID 5bb5e43c24f4efee4795cd650ab34ff0393120e7
# Parent  4ad7dde4a3db45ee17e9be1296e3a00ebe6d4fe5
*** empty log message ***

diff -r 4ad7dde4a3db -r 5bb5e43c24f4 DirectoryContentsBrowser.st
--- 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 $'
 ! !