--- a/GDBThread.st	Sun Sep 07 14:42:02 2014 +0100
+++ b/GDBThread.st	Sun Sep 07 22:44:55 2014 +0100
@@ -1,12 +1,24 @@
 "{ Package: 'jv:libgdbs' }"
 
-GDBObject subclass:#GDBThread
-	instanceVariableNames:'id group'
+GDBDebuggerObject subclass:#GDBThread
+	instanceVariableNames:'id group terminated'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'GDB-Core'
 !
 
+!GDBThread class methodsFor:'instance creation'!
+
+newWithDebugger: debugger id: id group: group
+    ^ self new
+        setDebugger: debugger;
+        setId: id;
+        setGroup: group;
+        yourself.
+
+    "Created: / 07-09-2014 / 21:33:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !GDBThread class methodsFor:'accessing - GDB value descriptors'!
 
 gdbValueDescriptor
@@ -17,3 +29,39 @@
     "Created: / 06-09-2014 / 02:21:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!GDBThread methodsFor:'accessing'!
+
+id
+    ^ id
+
+    "Created: / 07-09-2014 / 22:41:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+terminated
+    ^ terminated ? false
+
+    "Modified: / 07-09-2014 / 21:37:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!GDBThread methodsFor:'initialization'!
+
+setGroup: aGDBThreadGroup
+    self assert: group isNil.
+    group := aGDBThreadGroup.
+
+    "Created: / 07-09-2014 / 21:32:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+setId: tid
+    self assert: id isNil.
+    id := tid.
+
+    "Created: / 07-09-2014 / 21:31:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+setTerminated
+    terminated := true.
+
+    "Created: / 07-09-2014 / 21:37:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+