From 1286d61412d28953f34ca73963d3edcb43d608fa Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Mon, 3 Nov 2014 15:13:41 +0100
Subject: [PATCH] clear cdb output list on restart

---
 src/ce_cdbcmd.pas | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/ce_cdbcmd.pas b/src/ce_cdbcmd.pas
index 8519950a..1edc5cc5 100644
--- a/src/ce_cdbcmd.pas
+++ b/src/ce_cdbcmd.pas
@@ -26,7 +26,6 @@ type
     procedure btnStartClick(Sender: TObject);
     procedure btnStepClick(Sender: TObject);
     procedure btnStopClick(Sender: TObject);
-    procedure Button2Click(Sender: TObject);
     procedure txtCdbCmdKeyPress(Sender: TObject; var Key: char);
   private
     fCdbProc: TAsyncProcess;
@@ -96,6 +95,7 @@ procedure TCECdbWidget.btnStartClick(Sender: TObject);
 var
   outname: string;
 begin
+  lstCdbOut.Clear;
   if fProject = nil then exit;
   outname := fProject.outputFilename;
   if not fileExists(outname) then exit;
@@ -139,15 +139,14 @@ begin
 end;
 
 procedure TCECdbWidget.btnStopClick(Sender: TObject);
+const
+  cmd = 'q'#13#10;
 begin
+  if fCdbProc <> nil then
+    fCdbProc.Input.Write(cmd[1], length(cmd));
   cdbFree;
 end;
 
-procedure TCECdbWidget.Button2Click(Sender: TObject);
-begin
-
-end;
-
 procedure TCECdbWidget.txtCdbCmdKeyPress(Sender: TObject; var Key: char);
 var
   inp: string;