IDE: Enable the new Heaptrc output window by default. Part of issue #19837

git-svn-id: trunk@41169 -

ide/lazarus.pp

@@ -38,9 +38,7 @@ program Lazarus;
 {off $DEFINE IDE_MEM_CHECK}
 
 uses
-  {$IFDEF HEAPTRC_WINDOW}
   redirect_stderr,
-  {$ENDIF HEAPTRC_WINDOW}
   {$IF defined(UNIX) and not defined(DisableMultiThreading)}
   cthreads,
   {$ENDIF}

ide/raw_window.pas

@@ -1,16 +1,42 @@
+{
+ ***************************************************************************
+ *                                                                         *
+ *   This source is free software; you can redistribute it and/or modify   *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This code is distributed in the hope that it will be useful, but      *
+ *   WITHOUT ANY WARRANTY; without even the implied warranty of            *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU     *
+ *   General Public License for more details.                              *
+ *                                                                         *
+ *   A copy of the GNU General Public License is available on the World    *
+ *   Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also      *
+ *   obtain it by writing to the Free Software Foundation,                 *
+ *   Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.        *
+ *                                                                         *
+ ***************************************************************************
+
+  Abstract:
+    ToDo...
+}
 unit raw_window;
 
 {$mode objfpc}{$H+}
 
 interface
 
+{$IFDEF Windows}
 uses
   SysUtils, Windows, Messages;
 
 procedure ShowWindow(AStr : String);
+{$ENDIF Windows}
 
 implementation
 
+{$IFDEF Windows}
 Var
   WndHandle,
   ButtonHandle,
@@ -63,7 +89,6 @@ Begin
         PostMessage(ButtonHandle, BM_CLICK, 0, 0);
         Exit(0);
       end;
-
     end;
   End;
   Result := CallWindowProc(OldSubProc, Ahwnd, uMsg, wParam, lParam);
@@ -158,6 +183,9 @@ Begin
 
   UnregisterClass(WndClass.lpszClassName, WndClass.hInstance);
 end;
+{$ELSE Windows}
+  // If some action is needed in non-Windows systems, add it here.
+{$ENDIF Windows}
 
 end.
 

ide/redirect_stderr.pas

@@ -1,17 +1,43 @@
+{
+ ***************************************************************************
+ *                                                                         *
+ *   This source is free software; you can redistribute it and/or modify   *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This code is distributed in the hope that it will be useful, but      *
+ *   WITHOUT ANY WARRANTY; without even the implied warranty of            *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU     *
+ *   General Public License for more details.                              *
+ *                                                                         *
+ *   A copy of the GNU General Public License is available on the World    *
+ *   Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also      *
+ *   obtain it by writing to the Free Software Foundation,                 *
+ *   Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.        *
+ *                                                                         *
+ ***************************************************************************
+
+  Abstract:
+    ToDo...
+}
 unit redirect_stderr;
 
 {$mode objfpc}{$H+}
 
 interface
 
+{$IFDEF Windows}
 uses
   heaptrc, SysUtils, raw_window;
+{$ENDIF Windows}
 
 Var
   DoShowWindow : Boolean = True;
 
 implementation
 
+{$IFDEF Windows}
 const
   ErrorBufferLength = 2 * 1024;
 
@@ -102,7 +128,9 @@ initialization
   AssignError(MyStdErr);
   SetHeapTraceOutput(MyStdErr);
 
-finalization
+{$ELSE Windows}
+  // If some action is needed in non-Windows systems, add it here.
+{$ENDIF Windows}
 
 end.
 

ide/startlazarus.lpr

@@ -31,9 +31,7 @@ program StartLazarus;
 {$mode objfpc}{$H+}
 
 uses
-  {$IFDEF HEAPTRC_WINDOW}
   redirect_stderr,
-  {$ENDIF HEAPTRC_WINDOW}
   Interfaces, SysUtils,
   Forms,
   LazarusManager;
@@ -44,9 +42,7 @@ var
   ALazarusManager: TLazarusManager;
   
 begin
-  {$IFDEF HEAPTRC_WINDOW}
   redirect_stderr.DoShowWindow := False;
-  {$ENDIF HEAPTRC_WINDOW}
   Application.Initialize;
   ALazarusManager := TLazarusManager.Create(nil);
   ALazarusManager.Initialize;