--- 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