From b7c4f58fbde12bb5e3e8f67356925924b090f000 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Thu, 8 Sep 2005 05:31:17 +0000
Subject: [PATCH] replaced writeln with debugln (bug #1151)

git-svn-id: trunk@7649 -
---
 doceditor/frmmain.pp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/doceditor/frmmain.pp b/doceditor/frmmain.pp
index 31e1788a95..4132303275 100644
--- a/doceditor/frmmain.pp
+++ b/doceditor/frmmain.pp
@@ -27,8 +27,8 @@ unit FrmMain;
 interface
 
 uses
-  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Menus,
-  ActnList, ExtCtrls, ComCtrls, StdCtrls, pgeditor,process, fpdeutil;
+  Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics, Dialogs,
+  Menus, ActnList, ExtCtrls, ComCtrls, StdCtrls, pgeditor,process, fpdeutil;
 
 type
   TNodeType = (ntFile,ntPackage,ntModule,ntElement,ntTopic);
@@ -653,7 +653,7 @@ begin
       cmd:=cmd+' --disable-function-results';
     If DisableArguments then
       cmd:=cmd+' --disable-arguments';
-    Writeln(cmd);
+    DebugLn(cmd);
     With TProcess.Create(Nil) do
       try
         CommandLine:=cmd;
@@ -661,7 +661,7 @@ begin
         Execute;
         If (ExitStatus<>0) then
           begin
-          Writeln('error detected ',ExitStatus );
+          DebugLn('error detected ',DbgS(ExitStatus));
           If FileExists(OutputFile) then
             Result:=MessageDlg(SSkelErrorWithFile,[ExitStatus],mtWarning,mbYesNo,0)=mrYes
           else