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

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

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

Modified Files:
	OFClasses.pas 
Log Message:
Fixed bug: Incorrect StorageName string was used for 
TaggedValue name in the Load and Save methods of 
TMMCodeAttribute.

Index: OFClasses.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/ObjectFoundry/OFClasses.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** OFClasses.pas	21 Feb 2005 06:40:17 -0000	1.4
--- OFClasses.pas	24 Feb 2005 00:23:03 -0000	1.5
***************
*** 260,264 ****
    Prop.DataName := PropTypeName;
    Prop.V9Visibility := TV9Visibility(Visibility);  // SRM - 18 Sep 2004
!   TaggedStrings['StorageName'] := StorageName;
    // External part(s) options
    TaggedStrings['ExternalStorageName'] := ExternalStorageName;
--- 260,264 ----
    Prop.DataName := PropTypeName;
    Prop.V9Visibility := TV9Visibility(Visibility);  // SRM - 18 Sep 2004
!   TaggedStrings[IOClassStorageName] := StorageName;
    // External part(s) options
    TaggedStrings['ExternalStorageName'] := ExternalStorageName;
***************
*** 441,445 ****
    Tailor.IsArray := Prop.Options[PropArray];
    ReadOnly := Prop.WriteAccess = rwNone;
!   StorageName := TaggedStrings['StorageName'];
  
    // External part(s) options
--- 441,445 ----
    Tailor.IsArray := Prop.Options[PropArray];
    ReadOnly := Prop.WriteAccess = rwNone;
!   StorageName := TaggedStrings[IOClassStorageName];
  
    // External part(s) options