+ fixed missing class directives, poped up after yesterdays changes

git-svn-id: trunk@3689 -

fcl/passrc/pastree.pp

@@ -804,7 +804,7 @@ begin
   inherited Destroy;
 end;
 
-function TPasProcedureType.TypeName: string;
+class function TPasProcedureType.TypeName: string;
 begin
   Result := 'procedure';
 end;
@@ -833,7 +833,8 @@ begin
   inherited Destroy;
 end;
 
-function TPasFunctionType.TypeName: string;
+
+class function TPasFunctionType.TypeName: string;
 begin
   Result := 'function';
 end;

fcl/xml/xpath.pp

@@ -1223,7 +1223,7 @@ begin
   inherited Destroy;
 end;
 
-function TXPathNodeSetVariable.TypeName: String;
+class function TXPathNodeSetVariable.TypeName: String;
 begin
   Result := SNodeSet;
 end;
@@ -1248,7 +1248,7 @@ begin
   FValue := AValue;
 end;
 
-function TXPathBooleanVariable.TypeName: String;
+class function TXPathBooleanVariable.TypeName: String;
 begin
   Result := SBoolean;
 end;
@@ -1281,7 +1281,7 @@ begin
   FValue := AValue;
 end;
 
-function TXPathNumberVariable.TypeName: String;
+class function TXPathNumberVariable.TypeName: String;
 begin
   Result := SNumber;
 end;
@@ -1312,7 +1312,7 @@ begin
   FValue := AValue;
 end;
 
-function TXPathStringVariable.TypeName: String;
+class function TXPathStringVariable.TypeName: String;
 begin
   Result := SString;
 end;

utils/fpdoc/dw_html.pp

@@ -2967,7 +2967,7 @@ begin
    WriteHTMLPages;
 end;
 
-procedure THTMLWriter.Usage(List: TStrings);
+class procedure THTMLWriter.Usage(List: TStrings);
 begin
   List.add('--footer');
   List.Add(SHTMLUsageFooter);

utils/fpdoc/dw_latex.pp

@@ -624,7 +624,7 @@ begin
   WriteLnF('\pageref{%s} & %s  & %s \\',[ALabel,AName,ADescr]);
 end;
 
-function TLaTeXWriter.FileNameExtension: String;
+class function TLaTeXWriter.FileNameExtension: String;
 begin
   Result:=TexExtension;
 end;

utils/fpdoc/dw_man.pp

@@ -1740,14 +1740,12 @@ begin
 end;
 
 
-function TManWriter.FileNameExtension: String;
+class function TManWriter.FileNameExtension: String;
 begin
   Result:=IntToStr(DefaultManSection);
 end;
 
 
-
-
 procedure TManWriter.WriteClassMethodOverview(ClassDecl: TPasClassType);
 
 var

utils/fpdoc/dw_txt.pp

@@ -498,7 +498,7 @@ begin
   LineWidth:=DefaultLineWidth;
 end;
 
-procedure TTXTWriter.Usage(List: TStrings);
+class procedure TTXTWriter.Usage(List: TStrings);
 begin
   inherited Usage(List);
 end;
@@ -649,7 +649,7 @@ begin
   WriteLnF('%.30s %s ',[AName,ADescr]);
 end;
 
-function TTxtWriter.FileNameExtension: String;
+class function TTxtWriter.FileNameExtension: String;
 begin
   Result:=TxtExtension;
 end;