avoid endless recursion in terminateAllSubProcesses
- must check with markus bendel ...
--- a/Process.st Mon Nov 03 16:28:12 1997 +0100
+++ b/Process.st Mon Nov 03 16:29:58 1997 +0100
@@ -1394,15 +1394,15 @@
ProcessorScheduler knownProcesses do:[:aProcess |
aProcess ~~ self ifTrue:[
- (aProcess processGroupId == processGroupId
- or:[aProcess processGroupId == id]) ifTrue:[
+ ("aProcess processGroupId == processGroupId
+ or:["aProcess processGroupId == id"]") ifTrue:[
aProcess terminateWithAllSubprocesses
]
]
].
- "Created: 28.10.1996 / 20:43:32 / cg"
- "Modified: 26.8.1997 / 03:09:40 / cg"
+ "Created: / 28.10.1996 / 20:43:32 / cg"
+ "Modified: / 3.11.1997 / 00:28:06 / cg"
!
terminateGroup
@@ -1477,6 +1477,6 @@
!Process class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.88 1997-10-10 11:08:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.89 1997-11-03 15:29:58 cg Exp $'
! !
Process initialize!