equal
deleted
inserted
replaced
35 " |
35 " |
36 ! |
36 ! |
37 |
37 |
38 version |
38 version |
39 " |
39 " |
40 $Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.5 1994-11-28 21:11:36 claus Exp $ |
40 $Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.6 1995-02-06 01:00:14 claus Exp $ |
41 " |
41 " |
42 ! |
42 ! |
43 |
43 |
44 documentation |
44 documentation |
45 " |
45 " |
248 aBlock value:p |
248 aBlock value:p |
249 ] |
249 ] |
250 ] |
250 ] |
251 ] |
251 ] |
252 ]. |
252 ]. |
253 self updateStatus. |
253 "/ self updateStatus. |
254 self updateList. |
254 "/ self updateList. |
255 ! ! |
255 ! ! |
256 |
256 |
257 !ProcessMonitor methodsFor:'menu actions'! |
257 !ProcessMonitor methodsFor:'menu actions'! |
258 |
258 |
259 hideDead:aBoolean |
259 hideDead:aBoolean |
430 processes at:index put:nil |
430 processes at:index put:nil |
431 ] |
431 ] |
432 ]. |
432 ]. |
433 list ~= oldList ifTrue:[ |
433 list ~= oldList ifTrue:[ |
434 "avoid flicker" |
434 "avoid flicker" |
435 oldList size == list size ifTrue:[ |
435 (oldList notNil and:[oldList size == list size]) ifTrue:[ |
436 list keysAndValuesDo:[:idx :entry | |
436 list keysAndValuesDo:[:idx :entry | |
437 (oldList at:idx) ~= entry ifTrue:[ |
437 (oldList at:idx) ~= entry ifTrue:[ |
438 listView at:idx put:entry |
438 listView at:idx put:entry |
439 ] |
439 ] |
440 ] |
440 ] |