[Instantobjects-cvscommit] Source/ObjectFoundry OFClasses.pas,1.1,1.2

[Carlo B. <car...@us...>]

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