From fd7bc518df1ec6039c25caf43a4310543217d5ae Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Thu, 15 Oct 2015 11:01:45 +0000
Subject: missing stub for Actman

git-svn-id: http://svn.miranda-ng.org/main/trunk@15561 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Actman/actman.dpr | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'plugins/Actman')

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;
-- 
cgit v1.2.3