--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/VDBThreadGroupPresenter.st	Sun Sep 21 23:46:10 2014 +0100
@@ -0,0 +1,38 @@
+"{ Package: 'jv:vdb' }"
+
+VDBModelPresenter subclass:#VDBThreadGroupPresenter
+	instanceVariableNames:'threadGroup'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'VDB-Presentation'
+!
+
+!VDBThreadGroupPresenter methodsFor:'displaying'!
+
+displayString
+    ^ threadGroup displayString
+
+    "Created: / 21-09-2014 / 23:31:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!VDBThreadGroupPresenter methodsFor:'initialization'!
+
+setThreadGroup: aGDBThreadGroup
+    threadGroup := aGDBThreadGroup
+
+    "Created: / 21-09-2014 / 23:38:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!VDBThreadGroupPresenter methodsFor:'protocol-accessing'!
+
+fetchChildren
+    "should compute the list of children via the model.
+     Be aware, that the somewhat stupid 'optimization' of how the model is fetched may lead to
+     a O(n*log n) or even O(n^2) behavior here.
+     *** to optimize: redefine by subClass"
+
+    ^ threadGroup threads collect:[ :t | VDBThreadPresenter new setThread: t; parent: self ]
+
+    "Created: / 21-09-2014 / 23:41:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+