* Changed signature of TForkEvent

git-svn-id: trunk@26752 -

packages/fcl-process/src/process.pp

@@ -42,7 +42,7 @@ Type
 
 Type
   {$ifdef UNIX}
-  TProcessForkEvent = procedure;
+  TProcessForkEvent = procedure(Sender : TObject) of object;
   {$endif UNIX}
 
   { TProcess }

packages/fcl-process/src/unix/process.inc

@@ -394,7 +394,7 @@ begin
                 safefpdup2(fd,2);
               end;
             if Assigned(FForkEvent) then
-              FForkEvent;
+              FForkEvent(Self);
             if (poRunSuspended in Options) then
               sigraise(SIGSTOP);
             if FEnv<>Nil then