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

gdb com: fix checkmark in menu for eval kind could not appear

This commit is contained in:
Basile Burg 2019-01-20 06:46:23 +01:00
parent ca60e3dde0
commit 7c35bceb12
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/u_gdb.pas
View File

@ -2813,18 +2813,21 @@ begin
fEvalKind := gekDerefSelectedVar; fEvalKind := gekDerefSelectedVar;
mnuEvalSelected.Checked:=false; mnuEvalSelected.Checked:=false;
mnuEvalCustom.Checked:=false; mnuEvalCustom.Checked:=false;
mnuEvalDeref.Checked:=true;
end; end;
procedure TGdbWidget.mnuEvalCustomClick(Sender: TObject); procedure TGdbWidget.mnuEvalCustomClick(Sender: TObject);
begin begin
fEvalKind := gekCustom; fEvalKind := gekCustom;
mnuEvalSelected.Checked:=false; mnuEvalSelected.Checked:=false;
mnuEvalCustom.Checked:=true;
mnuEvalDeref.Checked:=false; mnuEvalDeref.Checked:=false;
end; end;
procedure TGdbWidget.mnuEvalSelectedClick(Sender: TObject); procedure TGdbWidget.mnuEvalSelectedClick(Sender: TObject);
begin begin
fEvalKind := gekSelectedVar; fEvalKind := gekSelectedVar;
mnuEvalSelected.Checked:=true;
mnuEvalCustom.Checked:=false; mnuEvalCustom.Checked:=false;
mnuEvalDeref.Checked:=false; mnuEvalDeref.Checked:=false;
end; end;