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