equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2019 by Claus Gittinger |
2 COPYRIGHT (c) 2019 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
157 "update list of processes" |
155 "update list of processes" |
158 |
156 |
159 |newList| |
157 |newList| |
160 |
158 |
161 shown ifTrue:[ |
159 shown ifTrue:[ |
162 newList := OSProcess allSubInstances. |
160 newList := OSProcess allSubInstances select:[:p | p pid notNil]. |
163 |
|
164 newList sortBySelector:#pid. |
161 newList sortBySelector:#pid. |
165 |
162 |
166 newList ~= processes ifTrue:[ |
163 newList ~= processes ifTrue:[ |
167 self updateStatus:newList |
164 self updateStatus:newList |
168 ]. |
165 ]. |