From 326e3c1a66d2ac0289406381bfb6b678d41c7e4c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 6 Aug 2009 15:45:37 +0000
Subject: [PATCH] IDE: redirect codetools dbgout to LCLProc

git-svn-id: trunk@21122 -
---
 ide/ideprocs.pp | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/ide/ideprocs.pp b/ide/ideprocs.pp
index 68fe2514c4..e44f1d1a34 100644
--- a/ide/ideprocs.pp
+++ b/ide/ideprocs.pp
@@ -2666,5 +2666,15 @@ begin
   Result := CheckGroup.Checked[CheckGroup.Items.IndexOf(Caption)];
 end;
 
+procedure CTDbgOut(const s: string);
+begin
+  LCLProc.DbgOut(s);
+end;
+
+initialization
+  CTDbgOutEvent:=@CTDbgOut;
+finalization
+  CTDbgOutEvent:=nil;
+
 end.