From c702020f12d686f7360a9433e0710607b02ba4b5 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 12 Jun 2010 19:05:26 +0000
Subject: [PATCH] LCL: docking: debugging

git-svn-id: trunk@26065 -
---
 lcl/include/dragmanager.inc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lcl/include/dragmanager.inc b/lcl/include/dragmanager.inc
index 746a5032a8..948913f4da 100644
--- a/lcl/include/dragmanager.inc
+++ b/lcl/include/dragmanager.inc
@@ -607,7 +607,7 @@ end;
 
 destructor TDragManagerDefault.Destroy;
 begin
-  FDockSites.Free;
+  FreeAndNil(FDockSites);
   inherited Destroy;
 end;
 
@@ -693,6 +693,9 @@ begin
   begin
     if FDockSites = nil then
       FDockSites := TFPList.Create;
+    if (FDockSites.IndexOf(Site)>=0)=DoRegister then exit;
+
+    //debugln(['TDragManagerDefault.RegisterDockSite Changed ',DbgSName(Site),' DoRegister=',DoRegister]);
     if DoRegister then begin
       FDockSites.Add(Site);
       Site.FreeNotification(Self);
@@ -736,6 +739,7 @@ begin
   inherited Notification(AComponent, Operation);
   if Operation=opRemove then begin
     if FDockSites<>nil then begin
+      //if FDockSites.IndexOf(AComponent)>=0 then debugln(['TDragManagerDefault.Notification DockSite: ',DbgSName(AComponent)]);
       FDockSites.Remove(AComponent);
       if FDockSites.Count=0 then
         FreeAndNil(FDockSites);