From 7c35bceb1211001016bf72838519a2d8643d94aa Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sun, 20 Jan 2019 06:46:23 +0100
Subject: [PATCH] gdb com: fix checkmark in menu for eval kind could not appear

---
 src/u_gdb.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/u_gdb.pas b/src/u_gdb.pas
index cee1aaf5..3e442ab5 100644
--- a/src/u_gdb.pas
+++ b/src/u_gdb.pas
@@ -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;