--- Merging r15400 into '.':

U    utils/fpdoc/dglobals.pp

# revisions: 15400
------------------------------------------------------------------------
r15400 | michael | 2010-06-10 08:52:07 +0200 (Thu, 10 Jun 2010) | 1 line
Changed paths:
   M /trunk/utils/fpdoc/dglobals.pp

* Fix so only interface is parsed
------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@15486 -

utils/fpdoc/dglobals.pp

@@ -546,6 +546,7 @@ begin
   FRootLinkNode := TLinkNode.Create('', '');
   FRootDocNode := TDocNode.Create('', nil);
   HidePrivate := True;
+  InterfaceOnly:=True;
   FPackages := TList.Create;
 end;