From 78031720074dc8a08a54cf8e6a1afe1a177e9396 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Thu, 26 May 2016 22:12:12 +0200
Subject: [PATCH] close #58, add an action to run compiled file outside

---
 src/ce_main.lfm | 13 +++++++++++++
 src/ce_main.pas | 19 +++++++++++++++++--
 2 files changed, 30 insertions(+), 2 deletions(-)

diff --git a/src/ce_main.lfm b/src/ce_main.lfm
index 14e16f26..94b550ff 100644
--- a/src/ce_main.lfm
+++ b/src/ce_main.lfm
@@ -2107,6 +2107,9 @@ object CEMainForm: TCEMainForm
           07FFB47A07FFB47A08FFB57C0AFFB67F0FFFB88114FFBA851B23
         }
       end
+      object MenuItem79: TMenuItem
+        Action = actFileRunOut
+      end
       object MenuItem63: TMenuItem
         Action = actFileUnittest
         Bitmap.Data = {
@@ -3632,6 +3635,9 @@ object CEMainForm: TCEMainForm
           07FFB47A07FFB47A08FFB57C0AFFB67F0FFFB88114FFBA851B23
         }
       end
+      object MenuItem80: TMenuItem
+        Action = actFileRunOut
+      end
       object MenuItem64: TMenuItem
         Action = actFileUnittest
         Bitmap.Data = {
@@ -4242,6 +4248,13 @@ object CEMainForm: TCEMainForm
       OnExecute = actFileRunExecute
       OnUpdate = updateDocumentBasedAction
     end
+    object actFileRunOut: TAction
+      Category = 'File'
+      Caption = 'Run compiled file outside'
+      ImageIndex = 22
+      OnExecute = actFileRunOutExecute
+      OnUpdate = updateDocumentBasedAction
+    end
     object actFileUnittest: TAction
       Category = 'File'
       Caption = 'Run file unittests'
diff --git a/src/ce_main.pas b/src/ce_main.pas
index 4f1909b5..9f78bcaf 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -40,6 +40,7 @@ type
     actFileCompile: TAction;
     actFileRun: TAction;
     actFileDscanner: TAction;
+    actFileRunOut: TAction;
     actProjNewDubJson: TAction;
     actProjNewNative: TAction;
     actSetRunnableSw: TAction;
@@ -142,6 +143,8 @@ type
     MenuItem76: TMenuItem;
     MenuItem77: TMenuItem;
     MenuItem78: TMenuItem;
+    MenuItem79: TMenuItem;
+    MenuItem80: TMenuItem;
     mnuLayout: TMenuItem;
     mnuItemMruFile: TMenuItem;
     mnuItemMruProj: TMenuItem;
@@ -155,6 +158,7 @@ type
     procedure actFileCompileExecute(Sender: TObject);
     procedure actFileDscannerExecute(Sender: TObject);
     procedure actFileRunExecute(Sender: TObject);
+    procedure actFileRunOutExecute(Sender: TObject);
     procedure actFileSaveCopyAsExecute(Sender: TObject);
     procedure actProjNewDubJsonExecute(Sender: TObject);
     procedure actProjNewNativeExecute(Sender: TObject);
@@ -310,6 +314,7 @@ type
     function  compileRunnable(unittest: boolean = false): boolean;
     procedure executeRunnable(unittest: boolean = false; redirect: boolean = true;
       const runArgs: string = '');
+    procedure runFile(outside: boolean);
 
     // file sub routines
     procedure newFile;
@@ -2256,7 +2261,7 @@ begin
   end;
 end;
 
-procedure TCEMainForm.actFileRunExecute(Sender: TObject);
+procedure TCEMainForm.runFile(outside: boolean);
 var
   fname: string;
   older: boolean = false;
@@ -2282,7 +2287,17 @@ begin
       exit;
   end;
   if fname.fileExists then
-    executeRunnable(false, true);
+    executeRunnable(false, not outside);
+end;
+
+procedure TCEMainForm.actFileRunExecute(Sender: TObject);
+begin
+  runFile(false);
+end;
+
+procedure TCEMainForm.actFileRunOutExecute(Sender: TObject);
+begin
+  runFile(true);
 end;
 
 procedure TCEMainForm.actFileOpenContFoldExecute(Sender: TObject);