--- a/VDBThreadPresenter.st	Mon Sep 22 09:57:54 2014 +0100
+++ b/VDBThreadPresenter.st	Mon Sep 22 22:50:28 2014 +0100
@@ -9,6 +9,16 @@
 
 !VDBThreadPresenter methodsFor:'accessing'!
 
+icon
+    thread isRunning ifTrue:[ ^ VDBIconLibrary threadRunning16x16 ].
+    thread isStopped ifTrue:[ ^ VDBIconLibrary threadStopped16x16 ].
+    thread isTerminated ifTrue:[ ^ VDBIconLibrary threadTerminated16x16 ].
+
+    ^ nil
+
+    "Created: / 22-09-2014 / 22:00:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 label
     ^ thread displayString