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