From db82b3dad54e6a9602dcaeb03eaad6ec6a67f889 Mon Sep 17 00:00:00 2001
From: michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Sat, 17 Oct 2009 13:55:39 +0000
Subject: * Put AppClass in interface section, and put OnRun in public section 
 of daemonapplication

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13895 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/fcl-base/src/daemonapp.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'packages/fcl-base')

diff --git a/packages/fcl-base/src/daemonapp.pp b/packages/fcl-base/src/daemonapp.pp
index 56b2817397..e5eb513e63 100644
--- a/packages/fcl-base/src/daemonapp.pp
+++ b/packages/fcl-base/src/daemonapp.pp
@@ -360,7 +360,6 @@ Type
     procedure SetupLogger;
     procedure StopLogger;
     Procedure DoRun; override;
-    Property  OnRun : TNotifyEvent Read FOnRun Write FOnRun;
     Property SysData : TObject Read FSysData Write FSysData;
   Public
     Procedure ShowException(E : Exception); override;
@@ -370,6 +369,7 @@ Type
     procedure RunDaemons;
     procedure UnInstallDaemons;
     procedure CreateForm(InstanceClass: TComponentClass; var Reference); virtual;
+    Property  OnRun : TNotifyEvent Read FOnRun Write FOnRun;
     Property Logger : TEventLog Read FLogger;
     Property GUIMainLoop : TGuiLoopEvent Read FGUIMainLoop Write FGuiMainLoop;
     Property GuiHandle : THandle Read FGUIHandle Write FGUIHandle;
@@ -418,6 +418,7 @@ Var
   SStatus : Array[1..5] of string =
     ('Stop','Pause','Continue','Interrogate','Shutdown');
   DefaultDaemonOptions : TDaemonOptions =  [doAllowStop,doAllowPause];
+  AppClass      : TCustomDaemonApplicationClass;
   
 implementation
 
@@ -429,7 +430,6 @@ Var
   MapperClass   : TCustomDaemonMapperClass;
   DesignMapper  : TCustomDaemonMapper;
   DaemonClasses : TStringList;
-  AppClass      : TCustomDaemonApplicationClass;
   
 {$ifdef svcdebug}
 Var
-- 
cgit v1.2.1