From f306a6a6bc18ae573a003f2c27e2303754f27daa Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sun, 5 Feb 2017 09:57:48 +0100
Subject: [PATCH] fixes #119 - debugee options updated at debug-time

---
 src/ce_gdb.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/ce_gdb.pas b/src/ce_gdb.pas
index 61dfce00..f343ed5d 100644
--- a/src/ce_gdb.pas
+++ b/src/ce_gdb.pas
@@ -1358,7 +1358,8 @@ end;
 procedure TCEGdbWidget.docFocused(document: TCESynMemo);
 begin
   fDoc := document;
-  updateDebugeeOptionsEditor;
+  if fGdbState = gsNone then
+    updateDebugeeOptionsEditor;
   synchronizeBreakpointsFromDoc;
 end;
 
@@ -1371,7 +1372,8 @@ begin
   if fDoc <> document then
     exit;
   fDoc := nil;
-  updateDebugeeOptionsEditor;
+  if fGdbState = gsNone then
+    updateDebugeeOptionsEditor;
 end;
 {$ENDREGION}
 
@@ -1396,6 +1398,7 @@ begin
   if fGdb.Running then
     fGdb.Terminate(0);
   FreeAndNil(fGdb);
+  updateDebugeeOptionsEditor;
 end;
 
 procedure TCEGdbWidget.storeObserversBreakpoints;
@@ -2184,6 +2187,7 @@ begin
       setState(gsNone);
       subjDebugStop(fSubj);
       deleteRedirectedIO;
+      updateDebugeeOptionsEditor;
     end;
   end;
 
@@ -2539,6 +2543,7 @@ begin
   subjDebugStop(fSubj);
   setState(gsNone);
   deleteRedirectedIO;
+  updateDebugeeOptionsEditor;
 end;
 
 procedure TCEGdbWidget.btnWatchClick(Sender: TObject);