[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.18,1.19 InstantPresentation.pas,1.9,1.10

[Carlo B. <car...@us...>]

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

Modified Files:
	InstantPersistence.pas InstantPresentation.pas 
Log Message:
Bug fixing

Index: InstantPresentation.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** InstantPresentation.pas	10 Feb 2005 23:06:29 -0000	1.9
--- InstantPresentation.pas	10 Feb 2005 23:19:55 -0000	1.10
***************
*** 2745,2750 ****
    FNewObject := AddNewObject(ActiveBuffer,
      GetBookmarkFlag(ActiveBuffer) = bfEOF);
-   if (FNewObject is TInstantObject) and (TInstantObject(FNewObject).RefCount > 1) then
-     TInstantObject(FNewObject).Release;
  end;
  
--- 2745,2748 ----

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** InstantPersistence.pas	3 Feb 2005 17:01:59 -0000	1.18
--- InstantPersistence.pas	10 Feb 2005 23:19:45 -0000	1.19
***************
*** 6524,6528 ****
  function TInstantParts.GetInstances(Index: Integer): TInstantObject;
  begin
!   Result := ObjectReferences[Index].Instance;
  end;
  
--- 6524,6531 ----
  function TInstantParts.GetInstances(Index: Integer): TInstantObject;
  begin
!   if Metadata.IsExternal = ceNo then
!     Result := inherited GetInstances(Index)
!   else
!     Result := ObjectReferences[Index].Instance;
  end;