missing stub for Actman

git-svn-id: http://svn.miranda-ng.org/main/trunk@15561 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 9 insertions, 0 deletions

diff --git a/plugins/Actman/actman.dpr b/plugins/Actman/actman.dpr
index 8b036e4f33..c33478a021 100644
--- a/plugins/Actman/actman.dpr
+++ b/plugins/Actman/actman.dpr
@@ -180,6 +180,14 @@ begin
   end;

 end;

 

+function DoCallContactService(wParam:WPARAM;lParam:LPARAM):int;cdecl;

+var

+  ccs:PCCSDATA;

+begin

+  ccs := PCCSDATA(lParam);

+  result := CallContactService(ccs^.hContact, ccs^.szProtoService, ccs^.wParam, ccs^.lParam);

+end;

+

 function DoOpenUrl(wParam:WPARAM;lParam:LPARAM):int;cdecl;

 begin

   Utils_OpenUrl(PAnsiChar(lParam), byte(wParam));

@@ -232,6 +240,7 @@ begin
   CreateServiceFunction(MS_ACT_SELECT   ,@ActSelect);

 

   CreateServiceFunction('Utils/OpenURL',@DoOpenUrl);

+  CreateServiceFunction('Proto/CallContactService', @DoCallContactService);

 

   HookEvent(ME_SYSTEM_MODULESLOADED,@OnModulesLoaded);

 end;