[Instantobjects-cvscommit] Source/ObjectFoundry OFClasses.pas,1.5,1.6

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

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

Modified Files:
	OFClasses.pas 
Log Message:
Reversed a previous incorrect change for handling 'StorageName' string.

Index: OFClasses.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/ObjectFoundry/OFClasses.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** OFClasses.pas	24 Feb 2005 00:23:03 -0000	1.5
--- OFClasses.pas	12 Mar 2005 03:07:31 -0000	1.6
***************
*** 260,268 ****
    Prop.DataName := PropTypeName;
    Prop.V9Visibility := TV9Visibility(Visibility);  // SRM - 18 Sep 2004
!   TaggedStrings[IOClassStorageName] := StorageName;
    // External part(s) options
    TaggedStrings['ExternalStorageName'] := ExternalStorageName;
    TaggedIntegers['StorageKind'] := Ord(StorageKind);
!   
    TaggedIntegers['Size'] := Metadata.Size;
    TaggedBooleans['IsDefault'] := IsDefault;
--- 260,268 ----
    Prop.DataName := PropTypeName;
    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;
***************
*** 441,445 ****
    Tailor.IsArray := Prop.Options[PropArray];
    ReadOnly := Prop.WriteAccess = rwNone;
!   StorageName := TaggedStrings[IOClassStorageName];
  
    // External part(s) options
--- 441,445 ----
    Tailor.IsArray := Prop.Options[PropArray];
    ReadOnly := Prop.WriteAccess = rwNone;
!   StorageName := TaggedStrings['StorageName'];
  
    // External part(s) options