VDBFramePresenter.st
changeset 72 4e8268dabaf7
parent 60 bcdb393c956f
child 77 163d914fae79
--- a/VDBFramePresenter.st	Wed Apr 04 23:16:30 2018 +0100
+++ b/VDBFramePresenter.st	Mon Apr 09 21:43:54 2018 +0100
@@ -116,6 +116,25 @@
     "Modified: / 05-02-2018 / 12:13:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!VDBFramePresenter methodsFor:'private-displaying'!
+
+displayLabel:aLabel h:lH on:aGC x:x y:y h:h isHighlightedAsSelected:isHighlightedAsSelected
+    | color |
+    frame thread isStopped ifFalse:[ 
+        color := aGC paint.
+        aGC paint: Color gray.
+        [
+           super displayLabel:aLabel h:lH on:aGC x:x y:y h:h isHighlightedAsSelected:isHighlightedAsSelected
+        ] ensure:[ 
+            aGC paint: color.
+        ].
+    ] ifTrue:[ 
+        super displayLabel:aLabel h:lH on:aGC x:x y:y h:h isHighlightedAsSelected:isHighlightedAsSelected
+    ].
+
+    "Created: / 09-04-2018 / 16:50:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !VDBFramePresenter methodsFor:'protocol-accessing'!
 
 fetchChildren