From d134d8df919784f817735e19e24c993b5806b342 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sun, 1 May 2011 16:35:25 +0000
Subject: [PATCH] DBG: clear terminal on run

git-svn-id: trunk@30517 -
---
 debugger/pseudoterminaldlg.pp | 6 ++++++
 ide/debugmanager.pas          | 4 ++++
 2 files changed, 10 insertions(+)

diff --git a/debugger/pseudoterminaldlg.pp b/debugger/pseudoterminaldlg.pp
index 66e5e2e208..98adebcf5e 100644
--- a/debugger/pseudoterminaldlg.pp
+++ b/debugger/pseudoterminaldlg.pp
@@ -23,6 +23,7 @@ type
   public
     { public declarations }
     procedure AddOutput(const AText: String);
+    procedure Clear;
   end;
 
 var
@@ -53,6 +54,11 @@ begin
   Memo1.SelStart := length(Memo1.Text);
 end;
 
+procedure TPseudoConsoleDlg.Clear;
+begin
+  Memo1.Text := '';
+end;
+
 {$R *.lfm}
 
 
diff --git a/ide/debugmanager.pas b/ide/debugmanager.pas
index 6469e662a8..9b1af6aa09 100644
--- a/ide/debugmanager.pas
+++ b/ide/debugmanager.pas
@@ -895,6 +895,10 @@ begin
         then TAssemblerDlg(FDialogs[ddtAssembler]).SetLocation(nil, 0);
       end;
     end;
+    dsInit: begin
+      if FDialogs[ddtPseudoTerminal] <> nil then
+        TPseudoConsoleDlg(FDialogs[ddtPseudoTerminal]).Clear;
+    end;
   end;
 end;