VDBDebuggerApplication.st
changeset 75 05177610d04d
parent 73 82e202dec6cb
child 83 101ff2210613
--- a/VDBDebuggerApplication.st	Fri May 25 11:14:20 2018 +0100
+++ b/VDBDebuggerApplication.st	Mon May 28 23:19:53 2018 +0100
@@ -906,10 +906,23 @@
     "Created: / 01-06-2017 / 23:43:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-onExitEvent: aGDBStoppedEvent
+onExitEvent: aGDBExitEvent
+    "/ Check if GDB terminateg gracefully, if not,
+    "/ show warning and allow user to inspect the
+    "/ record.
+    "/ 
+    "/ Yes, even GDB has bugs and crashes.
+    aGDBExitEvent status status == #signal ifTrue:[ 
+        (Dialog confirm: 
+            (resources stringWithCRs: 'GDB terminated by signal %1 (%2)\Show MI trace?' 
+                                with: aGDBExitEvent status code 
+                                with:(OperatingSystem nameForSignal: aGDBExitEvent status code)))
+            ifTrue:[  aGDBExitEvent trace inspect ]
+    ].
     self closeDownViews
 
     "Created: / 01-06-2017 / 13:42:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 28-05-2018 / 23:00:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 onLogOutputEvent:aGDBLogOutputEvent