diff options
Diffstat (limited to 'utils/fpdoc/dwlinear.pp')
| -rw-r--r-- | utils/fpdoc/dwlinear.pp | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/utils/fpdoc/dwlinear.pp b/utils/fpdoc/dwlinear.pp index 0a5d831656..470a2f6d24 100644 --- a/utils/fpdoc/dwlinear.pp +++ b/utils/fpdoc/dwlinear.pp @@ -107,7 +107,8 @@ Type procedure WriteClassDecl(ClassDecl: TPasClassType); procedure WriteClassMethodOverview(ClassDecl: TPasClassType); procedure WriteClassPropertyOverview(ClassDecl: TPasClassType); - procedure WriteClassInterfacesOverView(ClassDecl: TPasClassType); + procedure WriteClassInterfacesOverview(ClassDecl: TPasClassType); + procedure WriteClassInheritanceOverview(ClassDecl: TPasClassType); virtual; procedure WriteProperty(PropDecl: TPasProperty); procedure WriteExample(ADocNode: TDocNode); procedure WriteSeeAlso(ADocNode: TDocNode); @@ -415,6 +416,10 @@ begin ConvertNotes(ClassDecl,DocNode.Notes); end; + // graemeg: this must move above SeeAlso, Version and Notes written above. + // Write Class Hierarchy (Inheritance) Overview; + WriteClassInheritanceOverView(ClassDecl); + // Write Interfaces Overview; WriteClassInterfacesOverView(ClassDecl); // Write method overview @@ -517,7 +522,7 @@ begin end; -procedure TLinearWriter.WriteClassInterfacesOverView(ClassDecl: TPasClassType); +procedure TLinearWriter.WriteClassInterfacesOverview(ClassDecl: TPasClassType); var lInterface: TPasElement; i: Integer; @@ -571,6 +576,12 @@ begin end; end; +procedure TLinearWriter.WriteClassInheritanceOverview(ClassDecl: TPasClassType); +begin + { Do nothing by default. This will be implemented by descendant writers. See + the IPF Writer for an example. } +end; + function TLinearWriter.ConstValue(ConstDecl: TPasConst): String; begin |