equal
deleted
inserted
replaced
98 |
98 |
99 !ProcessMonitor methodsFor:'drawing'! |
99 !ProcessMonitor methodsFor:'drawing'! |
100 |
100 |
101 titleLine |
101 titleLine |
102 showDetail ifTrue:[ |
102 showDetail ifTrue:[ |
103 ^ 'id group name state prio usedStack totalStack current-segment switch where'. |
103 ^ 'id group name state prio usedStack totalStack current-segment switch where'. |
104 ]. |
104 ]. |
105 ^ 'id group name state prio where '. |
105 ^ 'id group name state prio where '. |
106 |
106 |
107 "Modified: 3.7.1996 / 13:57:38 / stefan" |
107 "Modified: / 3.7.1996 / 13:57:38 / stefan" |
108 "Modified: 28.3.1997 / 16:48:14 / cg" |
108 "Modified: / 4.3.1998 / 17:14:06 / cg" |
109 ! |
109 ! |
110 |
110 |
111 updateList |
111 updateList |
112 "update list of processes" |
112 "update list of processes" |
113 |
113 |
197 newSelection add:index+numHeaderLines. |
197 newSelection add:index+numHeaderLines. |
198 ]. |
198 ]. |
199 |
199 |
200 line := WriteStream on:(String new:200). |
200 line := WriteStream on:(String new:200). |
201 |
201 |
202 id printOn:line paddedTo:5. |
202 id printOn:line paddedTo:6. |
203 gId := aProcess processGroupId. |
203 gId := aProcess processGroupId. |
204 gId == id ifTrue:[ |
204 gId == id ifTrue:[ |
205 "/ a group leader |
205 "/ a group leader |
206 '- ' printOn:line. |
206 '- ' printOn:line. |
207 ] ifFalse:[ |
207 ] ifFalse:[ |
208 gId printOn:line paddedTo:5. |
208 gId printOn:line paddedTo:6. |
209 ]. |
209 ]. |
210 |
210 |
211 (nm := aProcess name) isNil ifFalse:[ |
211 (nm := aProcess name) isNil ifFalse:[ |
212 nm := nm printStringPaddedTo:(nameLength-1). |
212 nm := nm printStringPaddedTo:(nameLength-1). |
213 nm size >= nameLength ifTrue:[ |
213 nm size >= nameLength ifTrue:[ |
359 updateBlock notNil ifTrue:[ |
359 updateBlock notNil ifTrue:[ |
360 Processor removeTimedBlock:updateBlock. |
360 Processor removeTimedBlock:updateBlock. |
361 Processor addTimedBlock:updateBlock afterSeconds:updateDelay |
361 Processor addTimedBlock:updateBlock afterSeconds:updateDelay |
362 ] |
362 ] |
363 |
363 |
364 "Modified: 3.7.1996 / 13:56:01 / stefan" |
364 "Modified: / 3.7.1996 / 13:56:01 / stefan" |
365 "Modified: 22.8.1997 / 02:11:29 / cg" |
365 "Modified: / 4.3.1998 / 17:14:28 / cg" |
366 ! ! |
366 ! ! |
367 |
367 |
368 !ProcessMonitor methodsFor:'initialization'! |
368 !ProcessMonitor methodsFor:'initialization'! |
369 |
369 |
370 initialize |
370 initialize |
652 ! ! |
652 ! ! |
653 |
653 |
654 !ProcessMonitor class methodsFor:'documentation'! |
654 !ProcessMonitor class methodsFor:'documentation'! |
655 |
655 |
656 version |
656 version |
657 ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.57 1997-10-16 14:42:01 cg Exp $' |
657 ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.58 1998-03-04 18:13:27 cg Exp $' |
658 ! ! |
658 ! ! |