From 6e210ebe71246a35b4a950486d5690fad894e9ed Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 31 Mar 2008 07:45:23 +0000
Subject: [PATCH] save input history of evaluate/modify dialog in a better way
 (as it was designed)

git-svn-id: trunk@14696 -
---
 debugger/evaluatedlg.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/debugger/evaluatedlg.pp b/debugger/evaluatedlg.pp
index 0fd7d383e2..8ee000d7fa 100644
--- a/debugger/evaluatedlg.pp
+++ b/debugger/evaluatedlg.pp
@@ -136,7 +136,6 @@ procedure TEvaluateDlg.FormClose(Sender: TObject;
   var CloseAction: TCloseAction);
 begin
   IDEDialogLayoutList.SaveLayout(Self);
-  InputHistories.HistoryLists.GetList(ClassName, True).Assign(cmbExpression.Items);
 end;
 
 procedure TEvaluateDlg.FormShow(Sender: TObject);
@@ -156,6 +155,7 @@ var
   S, R: String;
 begin
   S := cmbExpression.Text;
+  InputHistories.HistoryLists.Add(ClassName, S);
   if DebugBoss.Evaluate(S, R)
   then begin
     if cmbExpression.Items.IndexOf(S) = -1