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

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

Revision: 759
          http://svn.sourceforge.net/instantobjects/revision/?rev=759&view=rev
Author:   jcmoraisjr
Date:     2007-02-24 11:31:26 -0800 (Sat, 24 Feb 2007)

Log Message:
-----------
Moving TInstantPart.ObjectReferences property to the protected area to allow optimizations.

Modified Paths:
--------------
    trunk/Source/Core/InstantPersistence.pas

Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas	2007-02-20 21:44:49 UTC (rev 758)
+++ trunk/Source/Core/InstantPersistence.pas	2007-02-24 19:31:26 UTC (rev 759)
@@ -660,7 +660,6 @@
     function GetObjectReferences(Index: Integer): TInstantObjectReference;
     procedure SetObjectReferences(Index: Integer; Value: TInstantObjectReference);
     property ObjectReferenceList: TObjectList read GetObjectReferenceList;
-    property ObjectReferences[Index: Integer]: TInstantObjectReference read GetObjectReferences write SetObjectReferences;
   protected
     class function AttributeType: TInstantAttributeType; override;
     function GetAllowOwned: Boolean; override;
@@ -683,6 +682,7 @@
     procedure SetAllowOwned(Value: Boolean); virtual;
     procedure ValidateObject(AObject: TInstantObject); override;
     procedure WriteObject(Writer: TInstantWriter); override;
+    property ObjectReferences[Index: Integer]: TInstantObjectReference read GetObjectReferences write SetObjectReferences;
   public
     destructor Destroy; override;
     procedure Assign(Source: TPersistent); override;