VDBThreadPresenter.st
changeset 207 27e7fa4229b3
parent 197 a4f790013a99
child 208 719dfb28b819
--- 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