--- a/ProcMonitor.st Thu Aug 21 17:00:19 1997 +0200
+++ b/ProcMonitor.st Fri Aug 22 17:54:40 1997 +0200
@@ -151,7 +151,8 @@
|oldList list line dIndex interrupted contextCount
aProcess nm st n found running sel space oldSelection
- newSelection numHeaderLines nameLength|
+ newSelection numHeaderLines nameLength index
+ con c totalStack sender id gId|
numHeaderLines := 2.
space := Character space.
@@ -180,10 +181,15 @@
interrupted := Processor interruptedProcess.
dIndex := 1.
- 1 to:processes size do:[:index |
- |con c totalStack sender id gId|
+ index := 1.
+
+ "/ use while-loop;
+ "/ processList may change size ....
+ [index <= processes size] whileTrue:[
aProcess := processes at:index.
+ index := index + 1.
+
(aProcess notNil
and:[aProcess ~~ 0]) ifTrue:[
((id := aProcess id) notNil or:[hideDead not]) ifTrue:[
@@ -356,7 +362,7 @@
]
"Modified: 3.7.1996 / 13:56:01 / stefan"
- "Modified: 21.8.1997 / 15:43:44 / cg"
+ "Modified: 22.8.1997 / 02:11:29 / cg"
! !
!ProcessMonitor methodsFor:'initialization'!
@@ -409,6 +415,14 @@
]
!
+hardTerminateProcess
+ "hard terminate the selected process"
+
+ self selectedProcessesSend:#terminateNoSignal
+
+ "Created: 22.8.1997 / 02:06:51 / cg"
+!
+
hideDead:aBoolean
"turn on/off hiding of dead (already terminated) processes"
@@ -475,9 +489,11 @@
'resume'
'suspend'
'stop'
+ '-'
'abort'
'terminate'
'terminate group'
+"/ 'hard terminate'
'restart'
'-'
'raise prio'
@@ -490,9 +506,11 @@
resumeProcess
suspendProcess
stopProcess
+ nil
abortProcess
terminateProcess
terminateProcessGroup
+"/ hardTerminateProcess
restartProcess
nil
raisePrio
@@ -538,7 +556,7 @@
^ m
"Created: 23.1.1997 / 03:05:54 / cg"
- "Modified: 27.1.1997 / 20:41:03 / cg"
+ "Modified: 22.8.1997 / 17:54:26 / cg"
!
stopProcess
@@ -636,5 +654,5 @@
!ProcessMonitor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.55 1997-08-21 15:00:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.56 1997-08-22 15:54:40 cg Exp $'
! !
--- a/ProcessMonitor.st Thu Aug 21 17:00:19 1997 +0200
+++ b/ProcessMonitor.st Fri Aug 22 17:54:40 1997 +0200
@@ -151,7 +151,8 @@
|oldList list line dIndex interrupted contextCount
aProcess nm st n found running sel space oldSelection
- newSelection numHeaderLines nameLength|
+ newSelection numHeaderLines nameLength index
+ con c totalStack sender id gId|
numHeaderLines := 2.
space := Character space.
@@ -180,10 +181,15 @@
interrupted := Processor interruptedProcess.
dIndex := 1.
- 1 to:processes size do:[:index |
- |con c totalStack sender id gId|
+ index := 1.
+
+ "/ use while-loop;
+ "/ processList may change size ....
+ [index <= processes size] whileTrue:[
aProcess := processes at:index.
+ index := index + 1.
+
(aProcess notNil
and:[aProcess ~~ 0]) ifTrue:[
((id := aProcess id) notNil or:[hideDead not]) ifTrue:[
@@ -356,7 +362,7 @@
]
"Modified: 3.7.1996 / 13:56:01 / stefan"
- "Modified: 21.8.1997 / 15:43:44 / cg"
+ "Modified: 22.8.1997 / 02:11:29 / cg"
! !
!ProcessMonitor methodsFor:'initialization'!
@@ -409,6 +415,14 @@
]
!
+hardTerminateProcess
+ "hard terminate the selected process"
+
+ self selectedProcessesSend:#terminateNoSignal
+
+ "Created: 22.8.1997 / 02:06:51 / cg"
+!
+
hideDead:aBoolean
"turn on/off hiding of dead (already terminated) processes"
@@ -475,9 +489,11 @@
'resume'
'suspend'
'stop'
+ '-'
'abort'
'terminate'
'terminate group'
+"/ 'hard terminate'
'restart'
'-'
'raise prio'
@@ -490,9 +506,11 @@
resumeProcess
suspendProcess
stopProcess
+ nil
abortProcess
terminateProcess
terminateProcessGroup
+"/ hardTerminateProcess
restartProcess
nil
raisePrio
@@ -538,7 +556,7 @@
^ m
"Created: 23.1.1997 / 03:05:54 / cg"
- "Modified: 27.1.1997 / 20:41:03 / cg"
+ "Modified: 22.8.1997 / 17:54:26 / cg"
!
stopProcess
@@ -636,5 +654,5 @@
!ProcessMonitor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.55 1997-08-21 15:00:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.56 1997-08-22 15:54:40 cg Exp $'
! !