instantobjects-cvscommit

[Nando D. <na...@us...>]

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

Modified Files:
	InstantPersistence.pas 
Log Message:
fixed #880713 - for real

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** InstantPersistence.pas	24 Feb 2005 19:24:42 -0000	1.27
--- InstantPersistence.pas	25 Feb 2005 14:03:17 -0000	1.28
***************
*** 11096,11107 ****
  begin
    {MustStore := MustStoreMap;}
!   if {MustStore or }AObject.IsPersistent then
!   begin
      Resolver := EnsureResolver(Map);
      {if MustStore then}
        Resolver.StoreMap(AObject, Map, ConflictAction, Info)
      {else if AObject.IsPersistent then
!       Resolver.DisposeMap(AObject, Map, ConflictAction, Info);}
!   end;
  end;
  
--- 11096,11107 ----
  begin
    {MustStore := MustStoreMap;}
!   {if MustStore or AObject.IsPersistent then
!   begin}
      Resolver := EnsureResolver(Map);
      {if MustStore then}
        Resolver.StoreMap(AObject, Map, ConflictAction, Info)
      {else if AObject.IsPersistent then
!       Resolver.DisposeMap(AObject, Map, ConflictAction, Info);
!   end;}
  end;