From f1c16c11d6fdc9c4c25c224294668393389c615a Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Wed, 21 Jan 2015 08:09:37 +0100
Subject: [PATCH] reactivated page close btn on linux

---
 src/ce_editor.pas | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index 81d22518..9210a551 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -43,6 +43,9 @@ type
     tokLst: TLexTokenList;
     errLst: TLexErrorList;
     fModStart: boolean;
+    {$IFDEF LINUX}
+    procedure pageCloseBtnClick(Sender: TObject);
+    {$ENDIF}
     function completionItemPaint(const AKey: string; ACanvas: TCanvas;X, Y: integer; Selected: boolean; Index: integer): boolean;
     procedure lexFindToken(const aToken: PLexToken; out doStop: boolean);
     procedure memoKeyPress(Sender: TObject; var Key: char);
@@ -109,6 +112,10 @@ begin
     bmp.Free;
   end;
   //
+  {$IFDEF LINUX}
+  PageControl.OnCloseTabClicked := @pageCloseBtnClick;
+  {$ENDIF}
+  //
   EntitiesConnector.addObserver(self);
 end;
 
@@ -198,6 +205,13 @@ end;
 {$ENDREGION}
 
 {$REGION PageControl/Editor things ---------------------------------------------}
+{$IFDEF LINUX}
+procedure TCEEditorWidget.pageCloseBtnClick(Sender: TObject);
+begin
+  if fDoc <> nil then fDoc.Free;
+end;
+{$ENDIF}
+
 function TCEEditorWidget.getEditorCount: NativeInt;
 begin
   result := pageControl.PageCount;