--- a/VDBThreadPresenter.st Tue Nov 17 22:02:29 2020 +0000
+++ b/VDBThreadPresenter.st Thu Dec 10 20:14:03 2020 +0000
@@ -77,13 +77,14 @@
label
name isNil ifTrue:[
thread isRunning ifFalse:[
- name := thread name.
+ name := '"' , thread name , '"'
]
].
- ^ '%1 [%2]' bindWith: (name notNil ifTrue:[name] ifFalse:['thread ' , thread id printString]) with: thread status
+ ^ 'Thread %1 [%2] %3' bindWith: (thread id printStringRadix: 10 size: 2 fill: Character space) with: thread status with: name ? ''
"Created: / 22-09-2014 / 00:14:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 12-07-2017 / 14:23:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 27-11-2020 / 13:44:36 / Jan Vrany <jan.vrany@labware.com>"
!
subject
@@ -146,6 +147,7 @@
"Modified: / 30-09-2014 / 00:04:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!VDBThreadPresenter methodsFor:'testing'!
isThreadPresenter