VDBVariableObjectListApplication.st
changeset 200 8f54ea4e6d11
parent 187 4c23ffccaf8e
child 241 9996050286c5
--- a/VDBVariableObjectListApplication.st	Mon Nov 16 21:51:00 2020 +0000
+++ b/VDBVariableObjectListApplication.st	Mon Nov 16 22:10:04 2020 +0000
@@ -1,6 +1,7 @@
 "
 jv:vdb - Visual / VM Debugger
 Copyright (C) 2015-now Jan Vrany
+Copyright (C) 2020 LabWare
 
 This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'
 
@@ -23,6 +24,7 @@
 "
 jv:vdb - Visual / VM Debugger
 Copyright (C) 2015-now Jan Vrany
+Copyright (C) 2020 LabWare
 
 This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'
 
@@ -253,19 +255,26 @@
 !
 
 delayedUpdateInternalList
-    | root |
+    | root variables |
 
     debugger isNil ifTrue:[
         self internalListHolder root children:#().
         ^ self.
     ].
-    root := self internalListHolder root.
-    root children:(self variableObjectListHolder value
+    self variableObjectListHolder value notNil ifTrue: [
+        variables := 
+            self variableObjectListHolder value    
                 collect:[:v | 
                     (VDBVariableObjectPresenter new) setVarobj:v;
                         parent:root;
                         yourself
-                ]).
+                ].
+    ] ifFalse: [
+        variables := #()
+    ].
+
+    root := self internalListHolder root.
+    root children: variables. 
     root expand.
     root children size == 1 ifTrue:[ 
         root children first expand
@@ -276,6 +285,7 @@
 
     "Created: / 27-02-2015 / 15:47:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 25-05-2018 / 10:40:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-11-2020 / 22:03:46 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 delayedUpdateSelection