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