# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1256744422 -3600
# Node ID 602c293b4300e52a9053c6e164768181413a9bec
# Parent  05c49d4b6f3b8a039a9aa5f414ac65705f87da55
code cleanup

diff -r 05c49d4b6f3b -r 602c293b4300 HierarchicalList.st
--- a/HierarchicalList.st	Wed Oct 28 16:40:11 2009 +0100
+++ b/HierarchicalList.st	Wed Oct 28 16:40:22 2009 +0100
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
 "{ Package: 'stx:libwidg2' }"
 
 List subclass:#HierarchicalList
@@ -299,16 +297,17 @@
         and:[self monitoringTaskDelay notNil
         and:[(dependents size ~~ 0) or:[additionalItemsToMonitorSemaphore notNil]]]
     ) ifTrue:[
-        monitoringTask := [
-            [(dependents size ~~ 0) or:[additionalItemsToMonitorSemaphore notNil]] whileTrue:[
-                self monitoringCycle.
-                additionalItemsToMonitorSemaphore isNil ifTrue:[
-                    Delay waitForSeconds:self monitoringTaskDelay
-                ] ifFalse:[
-                    additionalItemsToMonitorSemaphore waitWithTimeout:self monitoringTaskDelay.
-                ]
-            ].
-        ] newProcess.
+        monitoringTask := 
+            [
+                [(dependents size ~~ 0) or:[additionalItemsToMonitorSemaphore notNil]] whileTrue:[
+                    self monitoringCycle.
+                    additionalItemsToMonitorSemaphore isNil ifTrue:[
+                        Delay waitForSeconds:self monitoringTaskDelay
+                    ] ifFalse:[
+                        additionalItemsToMonitorSemaphore waitWithTimeout:self monitoringTaskDelay.
+                    ]
+                ].
+            ] newProcess.
 
         monitoringTask priorityRange:(Processor userBackgroundPriority to:Processor activePriority).
         monitoringTask restartable:true.
@@ -328,10 +327,12 @@
     (task := monitoringTask) notNil ifTrue:[
         monitoringTask := nil.
 
-        Error handle:[:ex| ] do:[
-            task terminateWithAllSubprocessesInGroup.
-            task waitUntilTerminated.
-        ]
+        Error 
+            handle:[:ex| ] 
+            do:[
+                task terminateWithAllSubprocessesInGroup.
+                task waitUntilTerminated.
+            ]
     ]
 !
 
@@ -385,5 +386,9 @@
 !HierarchicalList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.23 2006-09-12 16:26:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.24 2009-10-28 15:40:22 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.24 2009-10-28 15:40:22 cg Exp $'
 ! !