From abcb1065e69a29932ee436f5f7269d1685208dbb Mon Sep 17 00:00:00 2001
From: Merlijn Wajer <merlijn@wizzup.org>
Date: Wed, 23 Feb 2011 14:44:24 +0100
Subject: [PATCH] Simba: Fix tab closing depending on the Sender.

---
 Projects/Simba/simbaunit.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/Projects/Simba/simbaunit.pas b/Projects/Simba/simbaunit.pas
index 0880749..f8b814a 100644
--- a/Projects/Simba/simbaunit.pas
+++ b/Projects/Simba/simbaunit.pas
@@ -1637,8 +1637,13 @@ end;
 
 procedure TSimbaForm.ActionCloseTabExecute(Sender: TObject);
 begin
-  if(PageControl1.PageCount > 1)then
-    Self.DeleteTab(TTabSheet(Sender).TabIndex,false)
+  if(PageControl1.PageCount > 1) then
+  begin
+    if Sender is TTabSheet then
+      Self.DeleteTab(TTabSheet(Sender).TabIndex,false)
+    else
+      Self.DeleteTab(PageControl1.TabIndex,false)
+  end
   else
     Self.ClearScript;  //DeleteTab would take care of this already, but yeah, it's neater this way.
 end;