From 193e9e19368f11f3025f10d39c4e5a1afe7bd79c Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sun, 10 Nov 2002 22:02:36 +0000
Subject: [PATCH] MG: added smart hints in debug mode

git-svn-id: trunk@3619 -
---
 components/codetools/finddeclarationtool.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index 959df643f0..a35045050e 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -1237,12 +1237,14 @@ begin
     // identifier category and identifier
     if NewNode<>nil then begin
       case NewNode.Desc of
-      ctnVarDefinition, ctnTypeDefinition, ctnConstDefinition:
+      ctnVarDefinition, ctnTypeDefinition, ctnConstDefinition,
+      ctnEnumIdentifier:
         begin
           case NewNode.Desc of
           ctnVarDefinition: Result:=Result+'var ';
           ctnTypeDefinition: Result:=Result+'type ';
           ctnConstDefinition: Result:=Result+'const ';
+          ctnEnumIdentifier: Result:=Result+'enum ';
           end;
           NewTool.MoveCursorToNodeStart(NewNode);
           NewTool.ReadNextAtom;