From a1ebbdcee181a16362b7ddf326707db2f2d507d7 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Fri, 3 Dec 2010 22:18:05 +0000
Subject: [PATCH]  * compiles again ( .logger.info references changes to
 application.log())

git-svn-id: trunk@16501 -
---
 packages/fcl-base/examples/daemon.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-base/examples/daemon.pp b/packages/fcl-base/examples/daemon.pp
index 5c7a0f2099..b74165fa8f 100644
--- a/packages/fcl-base/examples/daemon.pp
+++ b/packages/fcl-base/examples/daemon.pp
@@ -49,14 +49,14 @@ begin
   Repeat
     Sleep(1000);
     inc(c);
-    Application.Logger.Info(Format('Tick : %d',[C]));
+    Application.Log(etcustom,Format('Tick : %d',[C]));
   Until Terminated;
 end;
 
 Procedure AWriteln(MSg : String; B : Boolean);
 
 begin
-  Application.Logger.Info(Msg+BoolToStr(B));
+  Application.Log(etcustom,Msg+BoolToStr(B));
 end;
 
 { TTestDaemon }