[Instantobjects-cvscommit] Source/ObjectFoundry OFDefs.pas,1.1,1.2 OFClasses.pas,1.6,1.7 OFExpt.dpr,1.3,1.4 OFCritic.pas,1.1,1.2

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

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

Modified Files:
	OFDefs.pas OFClasses.pas OFExpt.dpr OFCritic.pas 
Log Message:
1.  Changed Define to 'D7+' as this is needed for MM8 also.
2.  Added some IFDEFs to fix compiling for MM6.2.
3.  Fixed 'TObjectFoundryCritic.GetHeadline' to match case of its ancester
'TMMDesignCritic.GetHeadLine' in OFCritic.pas.

Index: OFClasses.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/ObjectFoundry/OFClasses.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** OFClasses.pas	12 Mar 2005 03:07:31 -0000	1.6
--- OFClasses.pas	21 Mar 2005 02:18:53 -0000	1.7
***************
*** 104,108 ****
      end;
      Result.Name := CountPropName;
!     Result.V9Visibility := TV9Visibility(Visibility);  // SRM - 18 Sep 2004
      Result.SetAccessSpec(rwMethod, rwNone);
      Getter := MemberAsMethod(Result.ReadMember);
--- 104,112 ----
      end;
      Result.Name := CountPropName;
! {$IFDEF MM7+}                                      // SRM begin - 16 Mar 2005
!     Result.V9Visibility := TV9Visibility(Visibility);
! {$ELSE}
!     Result.Visibility := TVisibility(Visibility);
! {$ENDIF}                                          // SRM end - 16 Mar 2005
      Result.SetAccessSpec(rwMethod, rwNone);
      Getter := MemberAsMethod(Result.ReadMember);
***************
*** 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
--- 215,223 ----
        Result.DataName := CodeMethod.Proc.ResultTypeName;
      end;
! {$IFDEF MM7+}                                      // SRM begin - 16 Mar 2005
!     Result.V9Visibility := TV9Visibility(Visibility);
! {$ELSE}
!     Result.Visibility := TVisibility(Visibility);
! {$ENDIF}                                          // SRM end - 16 Mar 2005
      NewBody := CodeMethod.Proc.Body.AsString;
      if Result.SectionCount = 0 then
***************
*** 259,263 ****
    Prop.Name := Name;
    Prop.DataName := PropTypeName;
!   Prop.V9Visibility := TV9Visibility(Visibility);  // SRM - 18 Sep 2004
    TaggedStrings['StorageName'] := StorageName;
    // External part(s) options
--- 267,275 ----
    Prop.Name := Name;
    Prop.DataName := PropTypeName;
! {$IFDEF MM7+}                                      // SRM begin - 16 Mar 2005
!   Prop.V9Visibility := TV9Visibility(Visibility);
! {$ELSE}
!   Prop.Visibility := TVisibility(Visibility);
! {$ENDIF}                                          // SRM end - 16 Mar 2005
    TaggedStrings['StorageName'] := StorageName;
    // External part(s) options

Index: OFDefs.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/ObjectFoundry/OFDefs.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** OFDefs.pas	2 Feb 2004 20:52:23 -0000	1.1
--- OFDefs.pas	21 Mar 2005 02:18:53 -0000	1.2
***************
*** 4,8 ****
  
  
! {$IFDEF MM7}
  uses
    MMToolsAPI, MMDiagramAPI;
--- 4,8 ----
  
  
! {$IFDEF MM7+}
  uses
    MMToolsAPI, MMDiagramAPI;

Index: OFCritic.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/ObjectFoundry/OFCritic.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** OFCritic.pas	2 Feb 2004 20:52:23 -0000	1.1
--- OFCritic.pas	21 Mar 2005 02:18:53 -0000	1.2
***************
*** 17,21 ****
      function GetCriticName: WideString; override; safecall;
      function GetDescription: WideString; override; safecall;
!     function GetHeadline: WideString; override; safecall;
      procedure MsgDoubleClicked(const M: IMMMessage; var Handled: Boolean); override; safecall;
      procedure Refresh; override; safecall;
--- 17,21 ----
      function GetCriticName: WideString; override; safecall;
      function GetDescription: WideString; override; safecall;
!     function GetHeadLine: WideString; override; safecall;
      procedure MsgDoubleClicked(const M: IMMMessage; var Handled: Boolean); override; safecall;
      procedure Refresh; override; safecall;
***************
*** 55,59 ****
  end;
  
! function TObjectFoundryCritic.GetHeadline: WideString;
  begin
    Result := FHeadline;
--- 55,59 ----
  end;
  
! function TObjectFoundryCritic.GetHeadLine: WideString;
  begin
    Result := FHeadline;

Index: OFExpt.dpr
===================================================================
RCS file: /cvsroot/instantobjects/Source/ObjectFoundry/OFExpt.dpr,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** OFExpt.dpr	16 Feb 2005 06:49:00 -0000	1.3
--- OFExpt.dpr	21 Mar 2005 02:18:53 -0000	1.4
***************
*** 1,5 ****
  library OFExpt;
  
! {$R *.RES}                     
  {$R ..\Design\iodesimages.res}   
  
--- 1,5 ----
  library OFExpt;
  
! {$R *.RES}
  {$R ..\Design\iodesimages.res}