From 0a5bb164569b34770298cf14b29c66ee2c1a1959 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile@linux-azvh.site>
Date: Fri, 11 Jul 2014 19:15:55 +0200
Subject: [PATCH] fixes for the linux version

---
 src/ce_main.pas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index 450c623f..39154cb1 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -339,9 +339,9 @@ begin
   fPrjCfWidg.Free;
   fStExpWidg.Free;
   fFindWidg.Free;
-  fProject.Free;
   fProjMru.Free;
   fFileMru.Free;
+  fProject.Free;
   //
   inherited;
 end;
@@ -940,7 +940,7 @@ begin
     {$IFDEF RELEASE}
     dmdProc.ShowWindow := swoHIDE;
     {$ENDIF}
-    dmdproc.Options := [poStdErrToOutput, poUsePipes];
+    dmdproc.Options := [poNewConsole, poStdErrToOutput, poUsePipes];
 
     dmdproc.Executable := 'dmd';
     aProject.getOpts(dmdproc.Parameters);
@@ -1113,7 +1113,8 @@ procedure TCEMainForm.newProj;
 var
   widg: TCEWidget;
 begin
-  fProject := TCEProject.Create(self);
+  fProject := TCEProject.Create(nil);
+  fProject.Name := 'CurrentProject';
   for widg in WidgetList do widg.projNew(fProject);
   fProject.onChange := @projChange;
 end;