--- 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 $'
! !