--- a/Process.st Mon Sep 30 10:34:16 2002 +0200
+++ b/Process.st Mon Sep 30 17:20:18 2002 +0200
@@ -1752,9 +1752,14 @@
!
terminateAllSubprocesses
- "terminate all the receivers subprocesses and their children as well
- (i.e. all processes in the receivers process group, except for
- the receiver itself)."
+ self obsoleteMethodWarning:'renamed to terminateAllSubprocessesInGroup'.
+!
+
+terminateAllSubprocessesInGroup
+ "terminate all subprocesses which have the receiver process as groupID,
+ and their group-children as well.
+ (i.e. all processes in the receivers process group, except for the receiver itself,
+ and recursively oll of their group processes.)."
id isNil ifTrue:[
"/ problem:
@@ -1769,9 +1774,8 @@
].
ProcessorScheduler knownProcesses do:[:aProcess |
aProcess ~~ self ifTrue:[
- ("aProcess processGroupId == processGroupId
- or:["aProcess processGroupId == id"]") ifTrue:[
- aProcess terminateWithAllSubprocesses
+ (aProcess processGroupId == id) ifTrue:[
+ aProcess terminateWithAllSubprocessesInGroup
]
]
].
@@ -1864,8 +1868,7 @@
!
terminateWithAllGUISubprocesses
- "terminate the receiver with all of its created gui subprocesses and their gui children
- (i.e. all processes in the receivers process group)."
+ "terminate the receiver with all of its created gui subprocesses and their gui children."
self terminateAllGUISubprocesses.
self terminate
@@ -1875,10 +1878,17 @@
!
terminateWithAllSubprocesses
- "terminate the receiver with all of its created subprocesses and their children
- (i.e. all processes in the receivers process group)."
+ self obsoleteMethodWarning:'renamed to terminateWithAllSubprocessesInGroup'.
+!
- self terminateAllSubprocesses.
+terminateWithAllSubprocessesInGroup
+ "terminate the receiver with
+ all subprocesses which have the receivers process ID as groupID,
+ and their group-children as well.
+ (i.e. the receiver plus all processes in the receivers process group,
+ and recursively all of their group processes)."
+
+ self terminateAllSubprocessesInGroup.
self terminate
"Modified: 28.10.1996 / 20:42:00 / cg"
@@ -1924,7 +1934,7 @@
!Process class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.131 2002-09-26 18:53:12 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.132 2002-09-30 15:20:18 cg Exp $'
! !
Process initialize!