--- a/HierarchicalList.st	Tue Sep 14 18:17:34 2004 +0200
+++ b/HierarchicalList.st	Fri Sep 17 13:00:20 2004 +0200
@@ -288,22 +288,22 @@
 
 startMonitoringTask
     "start the monitoring task; backgrund process finishes, when no (more) dependencies exist,
-     and the additionalItemsToMonitorSemaphore is not signalled (aka: no more background children to read)
-    "
+     and the additionalItemsToMonitorSemaphore is not signalled 
+     (aka: no more background children to read)"
+
     |name|
 
-    (     monitoringTask isNil
-     and:[monitoringTaskDelay notNil
-     and:[(dependents size ~~ 0) or:[additionalItemsToMonitorSemaphore notNil]]]
+    (self monitoringTaskDelay isNil
+        and:[monitoringTaskDelay notNil
+        and:[(dependents size ~~ 0) or:[additionalItemsToMonitorSemaphore notNil]]]
     ) ifTrue:[
         monitoringTask := [
-            |nextItem|
             [(dependents size ~~ 0) or:[additionalItemsToMonitorSemaphore notNil]] whileTrue:[
                 self monitoringCycle.
                 additionalItemsToMonitorSemaphore isNil ifTrue:[
-                    Delay waitForSeconds:monitoringTaskDelay
+                    Delay waitForSeconds:self monitoringTaskDelay
                 ] ifFalse:[
-                    additionalItemsToMonitorSemaphore waitWithTimeout:(self monitoringTaskDelay)
+                    additionalItemsToMonitorSemaphore waitWithTimeout:self monitoringTaskDelay.
                 ]
             ].
         ] newProcess.
@@ -320,14 +320,14 @@
 !
 
 stopMonitoringTask
-    "stop the monitoring task
-    "
+    "stop the monitoring task"
+
     |task|
 
     (task := monitoringTask) notNil ifTrue:[
         monitoringTask := nil.
 
-        Error handle:[:ex|]do:[
+        Error handle:[:ex| ] do:[
             task terminateWithAllSubprocessesInGroup.
             task waitUntilTerminated.
         ]
@@ -384,5 +384,5 @@
 !HierarchicalList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.19 2003-05-07 14:06:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.20 2004-09-17 11:00:20 stefan Exp $'
 ! !