--- a/GDBExitEvent.st	Sat Feb 03 22:37:17 2018 +0000
+++ b/GDBExitEvent.st	Sun Feb 04 21:18:15 2018 +0000
@@ -21,7 +21,7 @@
 "{ NameSpace: Smalltalk }"
 
 GDBInternalEvent subclass:#GDBExitEvent
-	instanceVariableNames:''
+	instanceVariableNames:'status'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'GDB-Core-Events'
@@ -50,3 +50,21 @@
 "
 ! !
 
+!GDBExitEvent methodsFor:'accessing'!
+
+status
+    "Return the GDB process exit status (if known)"
+
+    ^ status
+
+    "Modified (comment): / 04-02-2018 / 20:24:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!GDBExitEvent methodsFor:'initialization'!
+
+setStatus: anOSProcessStatus
+    status := anOSProcessStatus
+
+    "Created: / 04-02-2018 / 20:22:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+