[JEDI.NET-commits] tools/docs/common Jedi.Docs.System.pas,1.7,1.8

[Marcel B. <jed...@us...>]

Update of /cvsroot/jedidotnet/tools/docs/common
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25183/tools/docs/common

Modified Files:
	Jedi.Docs.System.pas 
Log Message:
Fixed bug where nested types of non-documented types where generated into the xml file.

Index: Jedi.Docs.System.pas
===================================================================
RCS file: /cvsroot/jedidotnet/tools/docs/common/Jedi.Docs.System.pas,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Jedi.Docs.System.pas	26 Nov 2004 20:50:38 -0000	1.7
--- Jedi.Docs.System.pas	27 Nov 2004 12:56:23 -0000	1.8
***************
*** 450,454 ****
  begin
    base := &type.BaseType;
!   Result := True;
    while Assigned(base) and Result do
    begin
--- 450,455 ----
  begin
    base := &type.BaseType;
!   Result := (&type.IsPublic or ((&type.IsNestedPublic or &type.IsNestedFamily or &type.IsNestedFamORAssem) and
!     CanTypeBeDocumented(&type.DeclaringType))) and (&type.Name <> 'Unit');
    while Assigned(base) and Result do
    begin
***************
*** 456,461 ****
      base := base.BaseType;
    end;
-   Result := Result and (&type.IsPublic or &type.IsNestedPublic or &type.IsNestedFamily or &type.IsNestedFamORAssem) and
-     (&type.Name <> 'Unit');
  end;
  
--- 457,460 ----