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;
|
