equal
deleted
inserted
replaced
176 dIndex := 1. |
176 dIndex := 1. |
177 1 to:processes size do:[:index | |
177 1 to:processes size do:[:index | |
178 |con c totalStack sender id gId| |
178 |con c totalStack sender id gId| |
179 |
179 |
180 aProcess := processes at:index. |
180 aProcess := processes at:index. |
181 aProcess notNil ifTrue:[ |
181 (aProcess notNil |
|
182 and:[aProcess ~~ 0]) ifTrue:[ |
182 ((id := aProcess id) notNil or:[hideDead not]) ifTrue:[ |
183 ((id := aProcess id) notNil or:[hideDead not]) ifTrue:[ |
183 line := WriteStream on:(String new:200). |
184 line := WriteStream on:(String new:200). |
184 |
185 |
185 id printOn:line paddedTo:5. |
186 id printOn:line paddedTo:5. |
186 gId := aProcess processGroupId. |
187 gId := aProcess processGroupId. |
619 sel do:[:n | |
620 sel do:[:n | |
620 nr := n - 2. "for headlines" |
621 nr := n - 2. "for headlines" |
621 nr notNil ifTrue:[ |
622 nr notNil ifTrue:[ |
622 nr > 0 ifTrue:[ |
623 nr > 0 ifTrue:[ |
623 p := processes at:nr. |
624 p := processes at:nr. |
624 p notNil ifTrue:[ |
625 (p notNil and:[p ~~ 0]) ifTrue:[ |
625 aBlock value:p |
626 aBlock value:p |
626 ] |
627 ] |
627 ] |
628 ] |
628 ] |
629 ] |
629 ] |
630 ] |
630 ] ifFalse:[ |
631 ] ifFalse:[ |
631 nr := sel - 2. "for headlines" |
632 nr := sel - 2. "for headlines" |
632 nr notNil ifTrue:[ |
633 nr notNil ifTrue:[ |
633 nr > 0 ifTrue:[ |
634 nr > 0 ifTrue:[ |
634 p := processes at:nr. |
635 p := processes at:nr. |
635 p notNil ifTrue:[ |
636 (p notNil and:[p ~~ 0]) ifTrue:[ |
636 aBlock value:p |
637 aBlock value:p |
637 ] |
638 ] |
638 ] |
639 ] |
639 ] |
640 ] |
640 ]. |
641 ]. |
654 ! ! |
655 ! ! |
655 |
656 |
656 !ProcessMonitor class methodsFor:'documentation'! |
657 !ProcessMonitor class methodsFor:'documentation'! |
657 |
658 |
658 version |
659 version |
659 ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.41 1996-10-15 23:35:39 cg Exp $'! ! |
660 ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.42 1996-10-18 12:37:51 cg Exp $'! ! |