[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.73,1.74

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

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

Modified Files:
	InstantPersistence.pas 
Log Message:
Fix for IsDefault bug when adding new class attributes [report #1368712 in SF BT].

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.73
retrieving revision 1.74
diff -C2 -d -r1.73 -r1.74
*** InstantPersistence.pas	24 Nov 2005 23:09:40 -0000	1.73
--- InstantPersistence.pas	29 Nov 2005 23:20:18 -0000	1.74
***************
*** 3255,3258 ****
--- 3255,3259 ----
  begin
    Result := Assigned(ClassMetadata) and
+     (ClassMetadata.DefaultContainerName <> '') and
      (ClassMetadata.DefaultContainerName = Name);
  end;