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