--- a/GDBVariable.st Mon Jun 12 10:00:44 2017 +0100
+++ b/GDBVariable.st Tue Jun 13 17:06:02 2017 +0100
@@ -67,10 +67,10 @@
varobj := result value.
].
- ^ varobj value
+ ^ varobj
"Created: / 27-02-2015 / 17:18:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 24-05-2017 / 15:14:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 13-06-2017 / 14:51:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!GDBVariable methodsFor:'initialization'!
@@ -84,6 +84,16 @@
"Created: / 27-02-2015 / 17:08:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!GDBVariable methodsFor:'inspecting'!
+
+inspectorExtraAttributes
+ ^ super inspectorExtraAttributes
+ add:('-varobj' -> [ self varobj ]);
+ yourself
+
+ "Created: / 13-06-2017 / 14:51:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!GDBVariable methodsFor:'printing & storing'!
printOn:aStream
@@ -92,9 +102,11 @@
super printOn:aStream.
aStream nextPutAll:'('.
name printOn: aStream.
+ aStream nextPutAll:': '.
+ aStream nextPutAll: self valueString.
aStream nextPutAll:')'.
- "Modified: / 27-02-2015 / 15:18:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 13-06-2017 / 17:01:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
valueString