equal
deleted
inserted
replaced
153 "update status display of processes" |
153 "update status display of processes" |
154 |
154 |
155 |oldList list line dIndex interrupted contextCount |
155 |oldList list line dIndex interrupted contextCount |
156 aProcess nm st n found running sel space oldSelection |
156 aProcess nm st n found running sel space oldSelection |
157 newSelection numHeaderLines nameLength index |
157 newSelection numHeaderLines nameLength index |
158 con c totalStack sender id gId r skipping startTime endTime deltaT| |
158 con c sender id gId r skipping startTime endTime deltaT| |
159 |
159 |
160 startTime := AbsoluteTime now. |
160 startTime := Timestamp now. |
161 |
161 |
162 numHeaderLines := 2. |
162 numHeaderLines := 2. |
163 space := Character space. |
163 space := Character space. |
164 nameLength := self class nameLengthInList. |
164 nameLength := self class nameLengthInList. |
165 |
165 |
428 "/ cg: must flush here - drawing is done by a background process; |
428 "/ cg: must flush here - drawing is done by a background process; |
429 "/ without the flush, the output may look ugly (delayed) |
429 "/ without the flush, the output may look ugly (delayed) |
430 listView flush |
430 listView flush |
431 ]. |
431 ]. |
432 |
432 |
433 endTime := AbsoluteTime now. |
433 endTime := Timestamp now. |
434 deltaT := (endTime millisecondDeltaFrom:startTime) / 1000.0. |
434 deltaT := (endTime millisecondDeltaFrom:startTime) / 1000.0. |
435 "/ Transcript show:deltaT; show:' ' ; showCR:(updateDelay / 10.0). |
435 "/ Transcript show:deltaT; show:' ' ; showCR:(updateDelay / 10.0). |
436 deltaT > (updateDelay / 5) ifTrue:[ |
436 deltaT > (updateDelay / 5) ifTrue:[ |
437 "/ the update took longer than 20% - make delay longer, to reduce cpu load. |
437 "/ the update took longer than 20% - make delay longer, to reduce cpu load. |
438 updateDelay := updateDelay * 2. |
438 updateDelay := updateDelay * 2. |
774 ! ! |
774 ! ! |
775 |
775 |
776 !ProcessMonitor class methodsFor:'documentation'! |
776 !ProcessMonitor class methodsFor:'documentation'! |
777 |
777 |
778 version |
778 version |
779 ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.82 2003-10-23 15:42:02 cg Exp $' |
779 ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.83 2004-03-20 19:28:23 stefan Exp $' |
780 ! ! |
780 ! ! |