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
|
