--- a/VDBThreadPresenter.st Sun Sep 21 23:46:10 2014 +0100
+++ b/VDBThreadPresenter.st Mon Sep 22 09:57:54 2014 +0100
@@ -7,12 +7,16 @@
category:'VDB-Presentation'
!
-!VDBThreadPresenter methodsFor:'displaying'!
+!VDBThreadPresenter methodsFor:'accessing'!
-displayString
+label
^ thread displayString
- "Created: / 21-09-2014 / 23:31:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Created: / 22-09-2014 / 00:14:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+thread
+ ^ thread
! !
!VDBThreadPresenter methodsFor:'initialization'!
@@ -31,8 +35,18 @@
a O(n*log n) or even O(n^2) behavior here.
*** to optimize: redefine by subClass"
- ^ thread frames collect:[ :f | VDBFramePresenter new setFrame: f; parent: self ]
+ thread isDead ifTrue:[ ^ #() ].
+ ^ thread stack collect:[ :f | VDBFramePresenter new setFrame: f; parent: self ]
"Created: / 21-09-2014 / 23:42:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 22-09-2014 / 00:54:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!VDBThreadPresenter methodsFor:'testing'!
+
+isThreadPresenter
+ ^ true
+
+ "Created: / 21-09-2014 / 23:54:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+