From 748a887ea9f4a0f4678652773eb9fef18f95a7c9 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Tue, 29 Nov 2016 07:05:45 +0100
Subject: [PATCH] app, prevent close when proj being comp

---
 src/ce_main.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index 8e0fc2d3..44320a8c 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -1831,6 +1831,11 @@ var
 begin
   canClose := false;
   SaveLastDocsAndProj;
+
+  if checkProjectLock(false) and
+    (dlgOkCancel('A project is still being compiled, close anyway ?') <> mrOK) then
+      exit;
+
   if assigned(fFreeProj) then
   begin
     if fFreeProj.modified and