--- a/GDBThread.st	Sun Sep 07 22:44:55 2014 +0100
+++ b/GDBThread.st	Mon Sep 08 10:02:31 2014 +0100
@@ -1,7 +1,7 @@
 "{ Package: 'jv:libgdbs' }"
 
 GDBDebuggerObject subclass:#GDBThread
-	instanceVariableNames:'id group terminated'
+	instanceVariableNames:'id group status'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'GDB-Core'
@@ -35,12 +35,6 @@
     ^ 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'!
@@ -55,13 +49,42 @@
 setId: tid
     self assert: id isNil.
     id := tid.
+    status := GDBThreadStatusRunning theOneAndOnlyInstance
 
     "Created: / 07-09-2014 / 21:31:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-09-2014 / 23:27:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+setStatus: aGDBThreadStatus
+    status := aGDBThreadStatus
+
+    "Created: / 07-09-2014 / 23:25:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 setTerminated
-    terminated := true.
+    status := GDBThreadStatusTerminated theOneAndOnlyInstance
 
     "Created: / 07-09-2014 / 21:37:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-09-2014 / 23:21:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!GDBThread methodsFor:'testing'!
+
+isRunning
+    ^ status isRunning
+
+    "Created: / 07-09-2014 / 23:23:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isStopped
+    ^ status isStopped
+
+    "Created: / 07-09-2014 / 23:23:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isTerminated
+    ^ status isTerminated
+
+    "Created: / 07-09-2014 / 23:23:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+