--- a/VDBThreadGroupPresenter.st	Sat Feb 03 21:18:50 2018 +0000
+++ b/VDBThreadGroupPresenter.st	Mon Feb 05 14:18:03 2018 +0000
@@ -10,7 +10,7 @@
 
 "{ NameSpace: Smalltalk }"
 
-VDBModelPresenter subclass:#VDBThreadGroupPresenter
+VDBAbstractPresenter subclass:#VDBThreadGroupPresenter
 	instanceVariableNames:'threadGroup'
 	classVariableNames:''
 	poolDictionaries:''
@@ -77,6 +77,14 @@
     "Modified: / 07-06-2017 / 07:47:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+subject
+    "Return an instance of GDB object that this presenter displays."
+
+    ^ threadGroup
+
+    "Modified: / 05-02-2018 / 13:08:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 threadGroup
     ^ threadGroup
 ! !