From 45d9a689040fb3ebc0c97fe68374ef2effa725b5 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Tue, 24 Nov 2015 14:03:36 +0000
Subject: [PATCH] packagetabs: fixed opening wrong file due to wrong page
 index.

git-svn-id: trunk@50495 -
---
 components/packagetabs/packagetabs_impl.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/packagetabs/packagetabs_impl.pas b/components/packagetabs/packagetabs_impl.pas
index 1f0e4c43e8..f311240827 100644
--- a/components/packagetabs/packagetabs_impl.pas
+++ b/components/packagetabs/packagetabs_impl.pas
@@ -761,6 +761,7 @@ begin
             if (xOldIndex>=0) and (xOldIndex<>xNewIndex) then
               TCustomTabControl(FNotebook).Pages.Move(xOldIndex, xNewIndex);
           end;
+          xEditor.UpdateProjectFile; // updates FNewEditorInfo.PageIndex
           Inc(xNewIndex);
           xBtn := TPackageTabButton.Create(Self);
           xBtn.Height := xLbl.Height;