From eabe435a6289e3b803cf4ea366918d9095b27aa7 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 8 Sep 2016 11:01:18 +0000
Subject: [PATCH] IDEIntf: fixed crash on TIDEMenuSection.Clear, bug #30574

git-svn-id: trunk@52935 -
---
 components/ideintf/menuintf.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/ideintf/menuintf.pas b/components/ideintf/menuintf.pas
index 63b2e4bf65..bde9bb2601 100644
--- a/components/ideintf/menuintf.pas
+++ b/components/ideintf/menuintf.pas
@@ -1072,6 +1072,7 @@ var
     SubSection: TIDEMenuSection;
     aVisible: Boolean;
   begin
+    if imssClearing in aSection.FStates then exit;
     aVisible:=aSection.RealVisible;
     for i:=0 to aSection.Count-1 do begin
       Item:=aSection[i];