Browse Source

* bug #10909 copy paste fixes in daemon support (stop/pauze)

git-svn-id: trunk@10401 -
marco 17 years ago
parent
commit
2df6010386
1 changed files with 2 additions and 2 deletions
  1. 2 2
      packages/fcl-base/src/daemonapp.pp

+ 2 - 2
packages/fcl-base/src/daemonapp.pp

@@ -545,14 +545,14 @@ end;
 
 function TDaemon.Stop: Boolean;
 begin
-  Result:=inherited Start;
+  Result:=inherited Stop;
   If assigned(FOnStop) then
     FOnStop(Self,Result);
 end;
 
 function TDaemon.Pause: Boolean;
 begin
-  Result:=inherited Start;
+  Result:=inherited Pause;
   If assigned(FOnPause) then
     FOnPause(Self,Result);
 end;