From 20823eb4e426615cab3491a3bd5112d8477aeb2d Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 10 Jun 2010 06:52:07 +0000
Subject: [PATCH] * Fix so only interface is parsed

git-svn-id: trunk@15400 -
---
 utils/fpdoc/dglobals.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/utils/fpdoc/dglobals.pp b/utils/fpdoc/dglobals.pp
index 5da7c153c8..fd3162b71e 100644
--- a/utils/fpdoc/dglobals.pp
+++ b/utils/fpdoc/dglobals.pp
@@ -546,6 +546,7 @@ begin
   FRootLinkNode := TLinkNode.Create('', '');
   FRootDocNode := TDocNode.Create('', nil);
   HidePrivate := True;
+  InterfaceOnly:=True;
   FPackages := TList.Create;
 end;