From 24d9d29bc5d11c02cd029b18bae94298ef0f2c11 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Fri, 23 Mar 2012 01:45:36 +0000
Subject: [PATCH] IDE: Group tabs in Window menu too

git-svn-id: trunk@36236 -
---
 ide/mainbase.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ide/mainbase.pas b/ide/mainbase.pas
index cafa02c3b8..c7e1c412ea 100644
--- a/ide/mainbase.pas
+++ b/ide/mainbase.pas
@@ -1131,6 +1131,8 @@ begin
   //create source page menuitems
   itmTabListProject.Visible := False;
   itmTabListOther.Visible := False;
+  itmTabListProject.MenuItem.Checked := False;
+  itmTabListOther.MenuItem.Checked := False;
   itmTabListPackage.Clear;
 
   if SourceEditorManager.SourceEditorCount > 0 then begin
@@ -1182,7 +1184,8 @@ begin
       else
         CurMenuItem.Caption := EditorCur.PageName;
       CurMenuItem.MenuItem.Checked := SourceEditorManager.ActiveEditor = EditorCur;
-      M.MenuItem.Checked := SourceEditorManager.ActiveEditor = EditorCur;
+      if SourceEditorManager.ActiveEditor = EditorCur then
+        M.MenuItem.Checked := true;
       CurMenuItem.OnClick := @mnuWindowSourceItemClick;
       CurMenuItem.Tag := j;
     end;