equal
deleted
inserted
replaced
37 " |
37 " |
38 ! |
38 ! |
39 |
39 |
40 version |
40 version |
41 " |
41 " |
42 $Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.18 1995-08-03 01:38:05 claus Exp $ |
42 $Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.19 1995-08-10 13:14:46 claus Exp $ |
|
43 $Revision: 1.19 $ |
43 " |
44 " |
44 ! |
45 ! |
45 |
46 |
46 documentation |
47 documentation |
47 " |
48 " |
105 |
106 |
106 !ProcessMonitor methodsFor:'drawing'! |
107 !ProcessMonitor methodsFor:'drawing'! |
107 |
108 |
108 titleLine |
109 titleLine |
109 showDetail ifTrue:[ |
110 showDetail ifTrue:[ |
110 ^ 'id name state prio usedStack totalStack current segment switches'. |
111 ^ 'id name state prio usedStack totalStack current segment switches list'. |
111 ]. |
112 ]. |
112 ^ 'id name state prio usedStack totalStack'. |
113 ^ 'id name state prio usedStack totalStack'. |
113 ! |
114 ! |
114 |
115 |
115 updateList |
116 updateList |
148 ! |
149 ! |
149 |
150 |
150 updateStatus |
151 updateStatus |
151 "update status display of processes" |
152 "update status display of processes" |
152 |
153 |
153 |oldList list line dIndex con interrupted| |
154 |oldList list line dIndex con interrupted plist| |
154 |
155 |
155 shown ifTrue:[ |
156 shown ifTrue:[ |
156 oldList := listView list. |
157 oldList := listView list. |
157 processes notNil ifTrue:[ |
158 processes notNil ifTrue:[ |
158 list := OrderedCollection new. |
159 list := OrderedCollection new. |
211 line := line , ' .. '. |
212 line := line , ' .. '. |
212 [con sender notNil] whileTrue:[ |
213 [con sender notNil] whileTrue:[ |
213 con := con sender |
214 con := con sender |
214 ]. |
215 ]. |
215 line := line , ((ObjectMemory addressOf:con) printStringRadix:16). |
216 line := line , ((ObjectMemory addressOf:con) printStringRadix:16). |
216 line := line , ' ('. |
217 ] ifFalse:[ |
217 line := line , (aProcess numberOfStackBoundaryHits printString). |
218 line := line , (String new:19) |
218 line := line , ')'. |
219 ]. |
219 ] |
220 line := line , ' '. |
|
221 line := line , (aProcess numberOfStackBoundaryHits printStringLeftPaddedTo:5). |
220 ]. |
222 ]. |
221 list add:line. |
223 list add:line. |
222 processes at:dIndex put:aProcess. |
224 processes at:dIndex put:aProcess. |
223 dIndex := dIndex + 1 |
225 dIndex := dIndex + 1 |
224 ] |
226 ] |
261 super initialize. |
263 super initialize. |
262 |
264 |
263 hideDead := true. |
265 hideDead := true. |
264 showDetail := Smalltalk at:#SystemDebugging ifAbsent:false. |
266 showDetail := Smalltalk at:#SystemDebugging ifAbsent:false. |
265 |
267 |
266 v := ScrollableView for:SelectionInListView in:self. |
268 v := HVScrollableView for:SelectionInListView miniScrollerH:true in:self. |
267 v origin:0.0@0.0 corner:1.0@1.0. |
269 v origin:0.0@0.0 corner:1.0@1.0. |
268 |
270 |
269 "/ self extent:(font widthOf:self titleLine) + v scrollBar width @ 100. |
271 "/ self extent:(font widthOf:self titleLine) + v scrollBar width @ 100. |
270 |
272 |
271 listView := v scrolledView. |
273 listView := v scrolledView. |
438 |
440 |
439 processMenu |
441 processMenu |
440 |labels selectors m| |
442 |labels selectors m| |
441 |
443 |
442 device ctrlDown ifTrue:[ |
444 device ctrlDown ifTrue:[ |
443 labels := #( |
445 labels := resources array:#( |
444 '\c detail' |
446 '\c detail' |
445 ). |
447 ). |
446 selectors := #( |
448 selectors := #( |
447 detail |
449 detail |
448 ). |
450 ). |