[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.32,1.33

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27614

Modified Files:
	InstantPersistence.pas 
Log Message:
Bugs fixed:
1.  Links an object to its owner in TInstantParts.InternalAdd().
2.  Change ReadPartsAttribute local procedure in 
TInstantSQLResolver.ReadAttribute() to retrieve data properly,
independent of the class (IO retrieves all properties from all tables).



Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** InstantPersistence.pas	4 Apr 2005 22:12:48 -0000	1.32
--- InstantPersistence.pas	5 Apr 2005 00:45:14 -0000	1.33
***************
*** 6528,6531 ****
--- 6528,6532 ----
      try
        Result := ObjectReferenceList.Add(Ref);
+       SetOwnerContext(AObject);
      except
        Ref.Free;
***************
*** 13973,13977 ****
                begin
                  RefObject := TInstantObjectReference.Create(nil, True);
!                 RefObject.ReferenceObject(Metadata.ObjectClass, DataSet.Fields[1].AsString);
                  (Attribute as TInstantParts).ObjectReferenceList.Add(RefObject);
                  {PartObject := AttributeMetadata.ObjectClass.Retrieve(Fields[1].AsString, False, False, AObject.Connector);
--- 13974,13978 ----
                begin
                  RefObject := TInstantObjectReference.Create(nil, True);
!                 RefObject.ReferenceObject(DataSet.Fields[0].AsString, DataSet.Fields[1].AsString);
                  (Attribute as TInstantParts).ObjectReferenceList.Add(RefObject);
                  {PartObject := AttributeMetadata.ObjectClass.Retrieve(Fields[1].AsString, False, False, AObject.Connector);