diff --git a/src/ce_gdb.pas b/src/ce_gdb.pas
index e78a02b0..193b0c3c 100644
--- a/src/ce_gdb.pas
+++ b/src/ce_gdb.pas
@@ -396,6 +396,7 @@ type
     procedure optionsChangesApplied(sender: TObject);
     procedure menuDeclare(item: TMenuItem);
     procedure menuUpdate(item: TMenuItem);
+    function menuHasItems: boolean;
     //
     procedure disableEditor;
     procedure setState(value: TGdbState);
@@ -1118,6 +1119,11 @@ begin
   end;
 end;
 
+function TCEGdbWidget.menuHasItems: boolean;
+begin
+  exit(true);
+end;
+
 procedure TCEGdbWidget.optionsChangesApplied(sender: TObject);
 begin
   fUpdateMenu:=true;