equal
deleted
inserted
replaced
5 classVariableNames:'' |
5 classVariableNames:'' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
7 category:'VDB-Presentation' |
7 category:'VDB-Presentation' |
8 ! |
8 ! |
9 |
9 |
10 !VDBThreadPresenter methodsFor:'displaying'! |
10 !VDBThreadPresenter methodsFor:'accessing'! |
11 |
11 |
12 displayString |
12 label |
13 ^ thread displayString |
13 ^ thread displayString |
14 |
14 |
15 "Created: / 21-09-2014 / 23:31:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
15 "Created: / 22-09-2014 / 00:14:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
16 ! |
|
17 |
|
18 thread |
|
19 ^ thread |
16 ! ! |
20 ! ! |
17 |
21 |
18 !VDBThreadPresenter methodsFor:'initialization'! |
22 !VDBThreadPresenter methodsFor:'initialization'! |
19 |
23 |
20 setThread: aGDBThread |
24 setThread: aGDBThread |
29 "should compute the list of children via the model. |
33 "should compute the list of children via the model. |
30 Be aware, that the somewhat stupid 'optimization' of how the model is fetched may lead to |
34 Be aware, that the somewhat stupid 'optimization' of how the model is fetched may lead to |
31 a O(n*log n) or even O(n^2) behavior here. |
35 a O(n*log n) or even O(n^2) behavior here. |
32 *** to optimize: redefine by subClass" |
36 *** to optimize: redefine by subClass" |
33 |
37 |
34 ^ thread frames collect:[ :f | VDBFramePresenter new setFrame: f; parent: self ] |
38 thread isDead ifTrue:[ ^ #() ]. |
|
39 ^ thread stack collect:[ :f | VDBFramePresenter new setFrame: f; parent: self ] |
35 |
40 |
36 "Created: / 21-09-2014 / 23:42:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
41 "Created: / 21-09-2014 / 23:42:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
42 "Modified: / 22-09-2014 / 00:54:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
37 ! ! |
43 ! ! |
38 |
44 |
|
45 !VDBThreadPresenter methodsFor:'testing'! |
|
46 |
|
47 isThreadPresenter |
|
48 ^ true |
|
49 |
|
50 "Created: / 21-09-2014 / 23:54:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
51 ! ! |
|
52 |