equal
deleted
inserted
replaced
160 1 to:processes size do:[:index | |
160 1 to:processes size do:[:index | |
161 |con c totalStack sender id gId| |
161 |con c totalStack sender id gId| |
162 |
162 |
163 aProcess := processes at:index. |
163 aProcess := processes at:index. |
164 (aProcess notNil |
164 (aProcess notNil |
165 and:[aProcess ~~ 0]) ifTrue:[ |
165 and:[aProcess ~~ 0]) ifTrue:[ |
166 ((id := aProcess id) notNil or:[hideDead not]) ifTrue:[ |
166 ((id := aProcess id) notNil or:[hideDead not]) ifTrue:[ |
167 line := WriteStream on:(String new:200). |
167 line := WriteStream on:(String new:200). |
168 |
168 |
169 id printOn:line paddedTo:5. |
169 id printOn:line paddedTo:5. |
170 gId := aProcess processGroupId. |
170 gId := aProcess processGroupId. |
210 ] |
210 ] |
211 ]. |
211 ]. |
212 |
212 |
213 showDetail ifTrue:[ |
213 showDetail ifTrue:[ |
214 id == 0 ifTrue:[ |
214 id == 0 ifTrue:[ |
215 line nextPutAll:('unlimited' leftPaddedTo:13). |
215 line nextPutAll:('unlimited' leftPaddedTo:14). |
216 ] ifFalse:[ |
216 ] ifFalse:[ |
217 n := aProcess numberOfStackSegments. |
217 n := aProcess numberOfStackSegments. |
218 line nextPutAll:(aProcess totalStackSize printStringLeftPaddedTo:10). |
218 line nextPutAll:(aProcess totalStackSize printStringLeftPaddedTo:10). |
219 line nextPut:$( ; nextPutAll:n printString; nextPut:$). |
219 line nextPutAll:(('(' , n printString , ')') paddedTo:4). |
220 ]. |
220 ]. |
221 con notNil ifTrue:[ |
221 con notNil ifTrue:[ |
222 line nextPutAll:' '. |
222 line nextPutAll:' '. |
223 line nextPutAll:(((ObjectMemory addressOf:con) printStringRadix:16) leftPaddedTo:8 with:$0). |
223 line nextPutAll:(((ObjectMemory addressOf:con) printStringRadix:16) leftPaddedTo:8 with:$0). |
224 line nextPutAll:' .. '. |
224 line nextPutAll:' .. '. |
318 Processor removeTimedBlock:updateBlock. |
318 Processor removeTimedBlock:updateBlock. |
319 Processor addTimedBlock:updateBlock afterSeconds:updateDelay |
319 Processor addTimedBlock:updateBlock afterSeconds:updateDelay |
320 ] |
320 ] |
321 |
321 |
322 "Modified: 3.7.1996 / 13:56:01 / stefan" |
322 "Modified: 3.7.1996 / 13:56:01 / stefan" |
323 "Modified: 18.7.1996 / 20:19:59 / cg" |
323 "Modified: 27.1.1997 / 23:36:38 / cg" |
324 ! ! |
324 ! ! |
325 |
325 |
326 !ProcessMonitor methodsFor:'initialization'! |
326 !ProcessMonitor methodsFor:'initialization'! |
327 |
327 |
328 initialize |
328 initialize |
598 ! ! |
598 ! ! |
599 |
599 |
600 !ProcessMonitor class methodsFor:'documentation'! |
600 !ProcessMonitor class methodsFor:'documentation'! |
601 |
601 |
602 version |
602 version |
603 ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.47 1997-01-27 19:41:19 cg Exp $'! ! |
603 ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.48 1997-01-27 22:38:44 cg Exp $'! ! |