From 1b5ee8830a8eb0b8e09716bddc2129d642586e84 Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Sun, 7 Mar 2004 12:33:47 +0000
Subject: [PATCH] don't add submenu if already added

git-svn-id: trunk@5281 -
---
 designer/designermenu.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/designer/designermenu.pp b/designer/designermenu.pp
index e8129a6f38..5aced542dd 100644
--- a/designer/designermenu.pp
+++ b/designer/designermenu.pp
@@ -780,7 +780,7 @@ end;
 // ------------------------------------------------------------//
 procedure TDesignerMainMenu.AddSubMenuClick(Sender: TObject);
 begin
-  AddSubMenu(Root, SelectedDesignerMenuItem);
+  if AddSubMenu(Root, SelectedDesignerMenuItem)=nil then exit;
   SetCoordinates(POSITION_LEFT, POSITION_TOP, 0, Root);
   Parent.Invalidate;