From 5dd40014701db00d59b7be00a17145063c6a4b0b Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 31 May 2015 21:07:40 +0200
Subject: [PATCH] fix, process input wdget remained disabled if process killed
 manually

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

diff --git a/src/ce_procinput.pas b/src/ce_procinput.pas
index b8de0441..07bdffe7 100644
--- a/src/ce_procinput.pas
+++ b/src/ce_procinput.pas
@@ -77,14 +77,12 @@ end;
 
 procedure TCEProcInputWidget.addProcess(aProcess: TProcess);
 begin
+  Panel1.Enabled:=false;
+
   // TODO-cfeature: process list, imply that each TCESynMemo must have its own runnable TProcess
   // currently they share the CEMainForm.fRunProc variable.
   if fProc <> nil then
-  begin
     fProc.Terminate(1);
-    Panel1.Enabled:=false;
-  end
-  else Panel1.Enabled:=true;
 
   txtExeName.Caption := 'no process';
   fProc := nil;
@@ -93,6 +91,7 @@ begin
   if not (poUsePipes in aProcess.Options) then
     exit;
   fProc := aProcess;
+  if fProc <> nil then Panel1.Enabled:=true;
   txtExeName.Caption := shortenPath(fProc.Executable);
 end;