[Instantobjects-cvscommit] Source/Core InstantExplorer.pas,1.5,1.6

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

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

Modified Files:
	InstantExplorer.pas 
Log Message:
Fix for crashes occurring when the FNodeType is 'ntContainer' and FInstance is not a valid object.

Index: InstantExplorer.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantExplorer.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** InstantExplorer.pas	24 Nov 2005 23:14:11 -0000	1.5
--- InstantExplorer.pas	7 Dec 2005 20:33:39 -0000	1.6
***************
*** 268,272 ****
    FName := AName;
    FInstance := AInstance;
!   if FInstance is TInstantObject then
      TInstantObject(FInstance).AddRef;
    FValue := AValue;
--- 268,272 ----
    FName := AName;
    FInstance := AInstance;
!   if (FNodeType = ntObject) and (FInstance is TInstantObject) then
      TInstantObject(FInstance).AddRef;
    FValue := AValue;
***************
*** 275,279 ****
  destructor TInstantExplorerNodeData.Destroy;
  begin
!   if FInstance is TInstantObject then
      TInstantObject(FInstance).Free;
    inherited;
--- 275,279 ----
  destructor TInstantExplorerNodeData.Destroy;
  begin
!   if (FNodeType = ntObject) and (FInstance is TInstantObject) then
      TInstantObject(FInstance).Free;
    inherited;