[Instantobjects-cvscommit] SF.net SVN: instantobjects: [638] trunk/Source/Core/InstantPresentation.pas

[<jcm...@us...>]

Revision: 638
Author:   jcmoraisjr
Date:     2006-02-28 09:59:30 -0800 (Tue, 28 Feb 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=638&view=rev

Log Message:
-----------
Fixed bug # 1439091 - Exposer.AddObject duplicating object (sorted lists)

Modified Paths:
--------------
    trunk/Source/Core/InstantPresentation.pas
Modified: trunk/Source/Core/InstantPresentation.pas
===================================================================
--- trunk/Source/Core/InstantPresentation.pas	2006-02-28 13:37:37 UTC (rev 637)
+++ trunk/Source/Core/InstantPresentation.pas	2006-02-28 17:59:30 UTC (rev 638)
@@ -1001,8 +1001,6 @@
 function TInstantAccessor.AddObject(AObject: TObject): Integer;
 begin
   Result := InternalAddObject(AObject);
-  if Altered then
-    Result := AddToView(AObject);
   ChangedData;
 end;
 
@@ -1307,8 +1305,6 @@
   AObject: TObject): Integer;
 begin
   Result := InternalInsertObject(Index, AObject);
-  if Altered then
-    Result := InsertInView(Index, AObject);
   ChangedData;
 end;
 
@@ -1453,8 +1449,6 @@
 function TInstantAccessor.RemoveObject(AObject: TObject): Integer;
 begin
   Result := InternalRemoveObject(AObject);
-  if Altered then
-    Result := RemoveFromView(AObject);
   ChangedData;
 end;