Update of /cvsroot/instantobjects/Source/ObjectFoundry
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31524/Source/ObjectFoundry
Modified Files:
OFClasses.pas
Log Message:
Added Steve Mitchell changes for MM compatibility
Index: OFClasses.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/ObjectFoundry/OFClasses.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** OFClasses.pas 2 Feb 2004 20:52:23 -0000 1.1
--- OFClasses.pas 1 Nov 2004 08:25:44 -0000 1.2
***************
*** 1,4 ****
--- 1,12 ----
unit OFClasses;
+ { 18 Sep 2004 - Steven Mitchell
+ Modified for use in MM7.25 -
+ Use V9Visibility property inplace of Visibility
+ property in MMToolsAPI V10 IMMMember interface.
+ 30 Sep 2004 - Steven Mitchell
+ Added tags for part(s) external storage params
+ }
+
interface
***************
*** 96,100 ****
end;
Result.Name := CountPropName;
! Result.Visibility := TVisibility(Visibility);
Result.SetAccessSpec(rwMethod, rwNone);
Getter := MemberAsMethod(Result.ReadMember);
--- 104,108 ----
end;
Result.Name := CountPropName;
! Result.V9Visibility := TV9Visibility(Visibility); // SRM - 18 Sep 2004
Result.SetAccessSpec(rwMethod, rwNone);
Getter := MemberAsMethod(Result.ReadMember);
***************
*** 203,207 ****
Result.DataName := CodeMethod.Proc.ResultTypeName;
end;
! Result.Visibility := TVisibility(Visibility);
NewBody := CodeMethod.Proc.Body.AsString;
if Result.SectionCount = 0 then
--- 211,215 ----
Result.DataName := CodeMethod.Proc.ResultTypeName;
end;
! Result.V9Visibility := TV9Visibility(Visibility); // SRM - 18 Sep 2004
NewBody := CodeMethod.Proc.Body.AsString;
if Result.SectionCount = 0 then
***************
*** 250,255 ****
Prop.Name := Name;
Prop.DataName := PropTypeName;
! Prop.Visibility := TVisibility(Visibility);
TaggedStrings['StorageName'] := StorageName;
TaggedIntegers['Size'] := Metadata.Size;
TaggedBooleans['IsDefault'] := IsDefault;
--- 258,269 ----
Prop.Name := Name;
Prop.DataName := PropTypeName;
! 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;
***************
*** 401,405 ****
begin
Name := Prop.Name;
! Visibility := TInstantCodeVisibility(Prop.Visibility);
if Attribute.IsIOAttribute then
begin
--- 415,419 ----
begin
Name := Prop.Name;
! Visibility := TInstantCodeVisibility(Prop.V9Visibility); // SRM - 18 Sep 2004
if Attribute.IsIOAttribute then
begin
***************
*** 429,432 ****
--- 443,452 ----
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'];
|
