From 9aff51930bc2eb834682e38b3cf0f03a9d5a7a8e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 18 Aug 2002 08:57:06 +0000
Subject: [PATCH] added history to identifier completion

git-svn-id: trunk@3023 -
---
 ide/uniteditor.pp | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/ide/uniteditor.pp b/ide/uniteditor.pp
index 4f548db327..d0fff5bb9c 100644
--- a/ide/uniteditor.pp
+++ b/ide/uniteditor.pp
@@ -2303,9 +2303,16 @@ var
 Begin
   if CurCompletionControl=nil then exit;
   case CurrentCompletionType of
+  
     ctIdentCompletion:
       begin
+        // add to history
+        CodeToolBoss.IdentifierHistory.Add(
+          CodeToolBoss.IdentifierList.FilteredItems[aCompletion.Position]);
         NewValue:=GetIdentCompletionValue(aCompletion,ValueType);
+        
+        // ToDo: check if there is no @ in front and no bracket behind
+        
         case ValueType of
         icvProcWithParams:
           NewValue:=NewValue+'()';
@@ -2321,9 +2328,6 @@ Begin
         end;
         ccSelection := '';
         Value:='';
-
-        // ToDo: add to history
-
       end;
 
     ctTemplateCompletion: