From 9a7417e4678e190d332ec5b01e44ed8a790f349c Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Fri, 26 Mar 2010 23:37:09 +0000
Subject: [PATCH] SourceEditor, switch tabs correctly on gtk2

git-svn-id: trunk@24233 -
---
 ide/sourceeditor.pp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index 4d1f6d1bb5..179f52848e 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -5267,9 +5267,10 @@ end;
 
 procedure TSourceNotebook.NoteBookDeletePage(Index: Integer);
 begin
-  if PageCount > 1 then
-    NotebookPages.Delete(Index)
-  else
+  if PageCount > 1 then begin
+    NotebookPages.Delete(Index);
+    FNoteBook.PageIndex := Min(Index, PageCount);
+  end else
     FNotebook.Visible := False;
 end;