[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.40,1.41

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

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

Modified Files:
	InstantPersistence.pas 
Log Message:
Fix non-saving of external part attribute.

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.40
retrieving revision 1.41
diff -C2 -d -r1.40 -r1.41
*** InstantPersistence.pas	18 Jun 2005 09:46:35 -0000	1.40
--- InstantPersistence.pas	18 Jun 2005 23:43:45 -0000	1.41
***************
*** 13166,13170 ****
    I: Integer;
  begin
!   for I := 0 to PRed(ResolverCount) do
    begin
      Result := Resolvers[I];
--- 13166,13170 ----
    I: Integer;
  begin
!   for I := 0 to Pred(ResolverCount) do
    begin
      Result := Resolvers[I];
***************
*** 13908,13912 ****
        begin
          PartAttribute := TInstantPart(AObject.AttributeByName(AttributeMetadata.Name));
!         if PartAttribute.IsChanged then
          begin
            if Map[i].StorageKind = skExternal then
--- 13908,13912 ----
        begin
          PartAttribute := TInstantPart(AObject.AttributeByName(AttributeMetadata.Name));
!         if PartAttribute.IsChanged or not PartAttribute.Value.IsPersistent then
          begin
            if Map[i].StorageKind = skExternal then