From de34b251b442cdf72b13c407d6b60c343c123bb3 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Thu, 16 Jan 2014 03:11:48 +0000
Subject: sync

git-svn-id: http://svn.miranda-ng.org/main/trunk@7674 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Watrack/status/i_st_vars.inc | 1 +
 plugins/Watrack/status/status.pas    | 5 ++++-
 2 files changed, 5 insertions(+), 1 deletion(-)

(limited to 'plugins/Watrack/status')

diff --git a/plugins/Watrack/status/i_st_vars.inc b/plugins/Watrack/status/i_st_vars.inc
index 50113b293c..4db2bbb44c 100644
--- a/plugins/Watrack/status/i_st_vars.inc
+++ b/plugins/Watrack/status/i_st_vars.inc
@@ -18,6 +18,7 @@ var
   XStatusSet    :cardinal;
   ClearXStat    :cardinal;
   hINS          :THANDLE;
+  plStatusHook  :THANDLE;
 
 const
   Changed:cardinal=0;
diff --git a/plugins/Watrack/status/status.pas b/plugins/Watrack/status/status.pas
index ccc9b2a447..1ffbeb6b84 100644
--- a/plugins/Watrack/status/status.pas
+++ b/plugins/Watrack/status/status.pas
@@ -66,7 +66,8 @@ begin
   CreateTemplates;
   hINS:=CreateServiceFunction(MS_WAT_INSERT,@InsertProc);
   reghotkey;
-  HookEvent(ME_WAT_NEWSTATUS,@NewPlStatus);
+  plStatusHook:=HookEvent(ME_WAT_NEWSTATUS,@NewPlStatus);
+
 end;
 
 procedure DeInitProc(aSetDisable:boolean);
@@ -83,6 +84,7 @@ begin
   end;
 //  DestroyServiceFunction(hLTo);
   DestroyServiceFunction(hINS);
+  UnhookEvent(plStatusHook);
   FreeProtoList;
   FreeTemplates;
 
@@ -126,6 +128,7 @@ begin
   mStatus.Init      :=@InitProc;
   mStatus.DeInit    :=@DeInitProc;
   mStatus.AddOption :=@AddOptionsPage;
+  mStatus.Check     :=nil;
   mStatus.ModuleName:='Statuses';
   ModuleLink        :=@mStatus;
 end;
-- 
cgit v1.2.3