231 !VDBStackApplication methodsFor:'change & update-delayed'! |
231 !VDBStackApplication methodsFor:'change & update-delayed'! |
232 |
232 |
233 delayedUpdateAfterThreadStopped:thread |
233 delayedUpdateAfterThreadStopped:thread |
234 "/ It may happen that by te time we get here the thread is running |
234 "/ It may happen that by te time we get here the thread is running |
235 "/ again, so care for this. |
235 "/ again, so care for this. |
236 |
236 |
|
237 contentsValid ifFalse:[ |
|
238 self enqueueUpdateAfterThreadStopped: thread. |
|
239 ^ self |
|
240 ]. |
|
241 |
237 thread isStopped ifTrue:[ |
242 thread isStopped ifTrue:[ |
238 |threadP framePs frameP| |
243 |threadP framePs frameP| |
239 |
244 |
240 threadP := self internalListHolder value root |
245 threadP := self internalListHolder value root |
241 recursiveDetect:[:e | e isThreadPresenter and:[ e thread == thread ] ]. |
246 recursiveDetect:[:e | e isThreadPresenter and:[ e thread == thread ] ]. |
246 self internalSelectionHolder value:frameP |
251 self internalSelectionHolder value:frameP |
247 ]. |
252 ]. |
248 ]. |
253 ]. |
249 |
254 |
250 "Created: / 22-09-2014 / 23:21:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
255 "Created: / 22-09-2014 / 23:21:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
251 "Modified: / 06-07-2017 / 08:56:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
252 "Modified: / 16-01-2018 / 20:22:04 / jv" |
256 "Modified: / 16-01-2018 / 20:22:04 / jv" |
|
257 "Modified: / 14-02-2019 / 16:53:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
253 ! |
258 ! |
254 |
259 |
255 delayedUpdateInternalList |
260 delayedUpdateInternalList |
256 | root list | |
261 | root list | |
257 |
262 |
321 ! |
326 ! |
322 |
327 |
323 onStoppedEvent: event |
328 onStoppedEvent: event |
324 | stoppedThread | |
329 | stoppedThread | |
325 |
330 |
326 self enqueueDelayedUpdateInternalList. |
331 self enqueueDelayedUpdateContents. |
327 stoppedThread := event stoppedThread. |
332 stoppedThread := event stoppedThread. |
328 stoppedThread notNil ifTrue:[ |
333 stoppedThread notNil ifTrue:[ |
329 self enqueueUpdateAfterThreadStopped:event stoppedThread. |
334 self enqueueUpdateAfterThreadStopped:event stoppedThread. |
330 ]. |
335 ]. |
331 |
336 |
332 "Created: / 17-09-2014 / 23:04:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
337 "Created: / 17-09-2014 / 23:04:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
333 "Modified: / 22-09-2014 / 23:26:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
334 "Modified: / 15-01-2018 / 11:51:51 / jv" |
338 "Modified: / 15-01-2018 / 11:51:51 / jv" |
|
339 "Modified: / 14-02-2019 / 16:31:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
335 ! |
340 ! |
336 |
341 |
337 onThreadGroupExitedEvent: event |
342 onThreadGroupExitedEvent: event |
338 self enqueueDelayedUpdateInternalList. |
343 self enqueueDelayedUpdateContents. |
339 |
344 |
340 "Created: / 18-09-2014 / 23:30:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
345 "Created: / 18-09-2014 / 23:30:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
341 "Modified: / 20-09-2014 / 23:08:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
346 "Modified: / 14-02-2019 / 16:31:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
342 ! |
347 ! |
343 |
348 |
344 onThreadGroupStartedEvent: event |
349 onThreadGroupStartedEvent: event |
345 self enqueueDelayedUpdateInternalList. |
350 self enqueueDelayedUpdateContents. |
346 |
351 |
347 "Created: / 02-03-2015 / 06:42:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
352 "Created: / 02-03-2015 / 06:42:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
353 "Modified: / 14-02-2019 / 16:31:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
348 ! ! |
354 ! ! |
349 |
355 |
350 !VDBStackApplication methodsFor:'initialization & release'! |
356 !VDBStackApplication methodsFor:'initialization & release'! |
351 |
357 |
352 subscribe |
358 subscribe |