[Instantobjects-cvscommit] Source/ObjectFoundry OFClasses.pas,1.3,1.4

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

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

Modified Files:
	OFClasses.pas 
Log Message:
Updates to integrate external storage unification changes.

Index: OFClasses.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/ObjectFoundry/OFClasses.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** OFClasses.pas	17 Nov 2004 20:59:50 -0000	1.3
--- OFClasses.pas	21 Feb 2005 06:40:17 -0000	1.4
***************
*** 261,270 ****
    Prop.V9Visibility := TV9Visibility(Visibility);  // SRM - 18 Sep 2004
    TaggedStrings['StorageName'] := StorageName;
-   // begin SRM 30 Sep 2004
    // External part(s) options
!   TaggedStrings['ExternalStoredName'] := ExternalStoredName;
!   TaggedStrings['ExternalLinkedName'] := ExternalLinkedName;
!   TaggedIntegers['IsExternal'] := Ord(IsExternal);
!   // end SRM 30 Sep 2004
    TaggedIntegers['Size'] := Metadata.Size;
    TaggedBooleans['IsDefault'] := IsDefault;
--- 261,268 ----
    Prop.V9Visibility := TV9Visibility(Visibility);  // SRM - 18 Sep 2004
    TaggedStrings['StorageName'] := StorageName;
    // External part(s) options
!   TaggedStrings['ExternalStorageName'] := ExternalStorageName;
!   TaggedIntegers['StorageKind'] := Ord(StorageKind);
!   
    TaggedIntegers['Size'] := Metadata.Size;
    TaggedBooleans['IsDefault'] := IsDefault;
***************
*** 444,453 ****
    ReadOnly := Prop.WriteAccess = rwNone;
    StorageName := TaggedStrings['StorageName'];
!   // begin SRM 30 Sep 2004
    // External part(s) options
!   ExternalStoredName := TaggedStrings['ExternalStoredName'];
!   ExternalLinkedName := TaggedStrings['ExternalLinkedName'];
!   IsExternal := TInstantContainerIsExternal(TaggedIntegers['IsExternal']);
!   // end SRM 30 Sep 2004
    IsDefault := TaggedBooleans['IsDefault'];
    IsIndexed := TaggedBooleans['IsIndexed'];
--- 442,450 ----
    ReadOnly := Prop.WriteAccess = rwNone;
    StorageName := TaggedStrings['StorageName'];
! 
    // External part(s) options
!   ExternalStorageName := TaggedStrings['ExternalStorageName'];
!   StorageKind := TInstantStorageKind(TaggedIntegers['StorageKind']);
! 
    IsDefault := TaggedBooleans['IsDefault'];
    IsIndexed := TaggedBooleans['IsIndexed'];