--- a/GDBObject.st	Mon Jun 12 10:00:44 2017 +0100
+++ b/GDBObject.st	Tue Jun 13 17:06:02 2017 +0100
@@ -135,6 +135,22 @@
     "Created: / 18-06-2014 / 07:57:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!GDBObject methodsFor:'inspecting'!
+
+inspectorExtraAttributes
+    | attrs |
+
+    attrs := super inspectorExtraAttributes.
+    properties notEmptyOrNil ifTrue:[ 
+        properties keysAndValuesDo:[ :name :value |
+            attrs at: '-' , name put: value.
+        ]
+    ].
+    ^ attrs
+
+    "Created: / 13-06-2017 / 16:13:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !GDBObject class methodsFor:'documentation'!
 
 version_HG

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

--- a/GDBVariableObject.st	Mon Jun 12 10:00:44 2017 +0100
+++ b/GDBVariableObject.st	Tue Jun 13 17:06:02 2017 +0100
@@ -9,6 +9,7 @@
 	category:'GDB-Private-Model'
 !
 
+
 !GDBVariableObject methodsFor:'accessing'!
 
 name
@@ -37,3 +38,23 @@
     "Modified: / 27-02-2015 / 17:10:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!GDBVariableObject methodsFor:'printing & storing'!
+
+printOn:aStream
+    "append a printed representation if the receiver to the argument, aStream"
+
+    super printOn:aStream.
+    aStream nextPutAll:'('.
+    value printOn: aStream.
+    aStream nextPutAll:')'.
+
+    "Created: / 13-06-2017 / 17:03:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!GDBVariableObject class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+