forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixes #119 - debugee options updated at debug-time

This commit is contained in:
Basile Burg 2017-02-05 09:57:48 +01:00
parent 0fe7c885ef
commit f306a6a6bc
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ce_gdb.pas
View File

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