VDBDebuggerApplication.st
changeset 109 8cd32ab019a4
parent 97 f59fab5b1d0f
child 110 7150377a44e1
--- a/VDBDebuggerApplication.st	Thu Sep 27 12:06:42 2018 +0100
+++ b/VDBDebuggerApplication.st	Thu Sep 27 21:00:01 2018 +0100
@@ -510,6 +510,7 @@
                 )
                (MenuItem
                   label: '-'
+                  isVisible: true
                 )
                (MenuItem
                   enabled: canAttachToRR
@@ -549,10 +550,9 @@
                   argument: VDBStackApplication
                 )
                (MenuItem
-                  label: 'Frame'
-                  itemValue: doOpenToolApplicationClass:
+                  label: 'Variables'
+                  itemValue: doOpenToolVariables
                   isVisible: true
-                  argument: VDBFrameApplication
                 )
                (MenuItem
                   label: 'Breakpoints'
@@ -1210,6 +1210,18 @@
     "Modified (format): / 08-03-2015 / 15:49:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+doOpenToolVariables
+    | variables application |
+
+    variables := (AspectAdaptor forAspect:#variables)
+                    subjectChannel: self selectedFrameHolder.
+    application := VDBVariableObjectListApplication new
+                    variableObjectListHolder: variables.
+    self doOpenToolApplication: application.
+
+    "Modified: / 27-09-2018 / 20:56:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 doQuit
     self closeRequest.