VDBVariableObjectListApplication.st
changeset 187 4c23ffccaf8e
parent 151 bc7626f46210
child 200 8f54ea4e6d11
--- a/VDBVariableObjectListApplication.st	Tue Sep 24 00:43:53 2019 +0100
+++ b/VDBVariableObjectListApplication.st	Fri Sep 27 20:52:14 2019 +0100
@@ -118,11 +118,15 @@
 !VDBVariableObjectListApplication methodsFor:'aspects'!
 
 backgroundColorFor: aVDBVariableOjectPresenter
-    ^ aVDBVariableOjectPresenter varobj hasChanged
+    | varobj |
+
+    varobj := aVDBVariableOjectPresenter varobj.
+    ^(varobj notNil and:[varobj hasChanged])
         ifTrue:[ Color yellow lighter lighter ]
         ifFalse:[ nil ]
 
     "Created: / 01-02-2018 / 09:08:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 25-09-2019 / 00:59:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 foregroundColorFor: aVDBVariableOjectPresenter
@@ -237,7 +241,7 @@
             "/ Update the child, but only if the list of currently displayed
             "/ children remains the same. Keep in mind that user may have
             "/ have switched to another frame before we're finished with the update.
-            internalListHolder root children == children ifTrue: [ changed := each varobj hasChanged or:[changed] ] 
+            internalListHolder root children == children ifTrue: [ changed := (each varobj notNil and:[each varobj hasChanged]) or:[changed] ] 
         ].
     ].
     self enqueueDelayedAction:[ 
@@ -245,7 +249,7 @@
     ]
 
     "Created: / 06-02-2018 / 12:52:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 21-03-2018 / 09:42:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 25-09-2019 / 01:09:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 delayedUpdateInternalList