DBG: clear terminal on run

git-svn-id: trunk@30517 -

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}
 
 

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;