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

View File

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