From fb1e916ed2dbf51c52dd6b0ab678a0874d538f8c Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Thu, 11 Feb 2010 13:37:34 +0000
Subject: [PATCH]  * fix from mantis 15655 that adds notifiers to
 tlist.addlist.

git-svn-id: trunk@14885 -
---
 rtl/objpas/classes/lists.inc | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/rtl/objpas/classes/lists.inc b/rtl/objpas/classes/lists.inc
index ecd0f58433..7ada83baae 100644
--- a/rtl/objpas/classes/lists.inc
+++ b/rtl/objpas/classes/lists.inc
@@ -618,9 +618,17 @@ begin
 end;
 
 Procedure TList.AddList(AList : TList);
+var
+  I: Integer;
 begin
-  FList.AddList(AList.FList);
-end;
+  { this only does FList.AddList(AList.FList), avoiding notifications }
+  AddList(AList);
+
+  { make lnAdded notifications }
+  for I := 0 to AList.Count - 1 do
+    if AList[I] <> nil then
+      Notify(AList[I], lnAdded);
+end;            
 
 procedure TList.Clear;