From 078cef717e0f516cc820d444f5d6249803ea1f0a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 18 Jan 2007 14:59:57 +0000
Subject: [PATCH] codetools: added verbosity

git-svn-id: trunk@10476 -
---
 components/codetools/codecompletiontool.pas | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/components/codetools/codecompletiontool.pas b/components/codetools/codecompletiontool.pas
index d53ae749bb..1af976d544 100644
--- a/components/codetools/codecompletiontool.pas
+++ b/components/codetools/codecompletiontool.pas
@@ -2235,6 +2235,8 @@ begin
                   +GetIndentStr(BeautifyCodeOptions.Indent)
                     +ProcCall+BeautifyCodeOptions.LineEnd
                   +'end;';
+      // Graeme
+      DebugLn(['TCodeCompletionCodeTool.CheckForOverrideAndAddInheritedCode ProcCode="',ProcCode,'"']);
       ANodeExt.ExtTxt3:=ProcCode;
     end;
     AnAVLNode:=ClassProcs.FindSuccessor(AnAVLNode);
@@ -2255,11 +2257,14 @@ var
       ProcCode:=ANodeExt.ExtTxt1;
     ProcCode:=ASourceChangeCache.BeautifyCodeOptions.AddClassAndNameToProc(
                  ProcCode,TheClassName,'');
-    {$IFDEF CTDEBUG}
+    { $IFDEF CTDEBUG}
+    // Graeme
     DebugLn('CreateMissingProcBodies InsertProcBody ',TheClassName,' "',ProcCode,'"');
-    {$ENDIF}
+    { $ENDIF}
     ProcCode:=ASourceChangeCache.BeautifyCodeOptions.BeautifyProc(
                  ProcCode,Indent,ANodeExt.ExtTxt3='');
+    // Graeme
+    DebugLn(['CreateMissingProcBodies beautified ProcCode="',ProcCode,'"']);
     ASourceChangeCache.Replace(gtEmptyLine,gtEmptyLine,InsertPos,InsertPos,
       ProcCode);
     if JumpToProcName='' then begin
@@ -2286,6 +2291,8 @@ var
              phpWithParameterNames,phpWithResultType,phpWithCallingSpecs]);
         TheNodeExt.ExtTxt3:=ASourceChangeCache.BeautifyCodeOptions.BeautifyProc(
                      ProcCode,Indent,true);
+        // Graeme
+        DebugLn(['CreateCodeForMissingProcBody TheNodeExt.ExtTxt3="',TheNodeExt.ExtTxt3,'" ProcCode="',ProcCode,'"']);
       end;
     end;
   end;