GDBExitEvent.st
changeset 121 c99479329a46
parent 105 1d4ca4370d05
child 126 fb73b0af430b
--- a/GDBExitEvent.st	Wed May 23 10:22:36 2018 +0100
+++ b/GDBExitEvent.st	Mon May 28 23:18:45 2018 +0100
@@ -21,7 +21,7 @@
 "{ NameSpace: Smalltalk }"
 
 GDBInternalEvent subclass:#GDBExitEvent
-	instanceVariableNames:'status'
+	instanceVariableNames:'status trace'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'GDB-Core-Events'
@@ -58,6 +58,10 @@
     ^ status
 
     "Modified (comment): / 04-02-2018 / 20:24:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+trace
+    ^ trace
 ! !
 
 !GDBExitEvent methodsFor:'initialization'!
@@ -66,5 +70,11 @@
     status := anOSProcessStatus
 
     "Created: / 04-02-2018 / 20:22:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+setTrace: GDBMITrace
+    trace:= GDBMITrace
+
+    "Created: / 28-05-2018 / 22:58:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !