* Create using slineBreak instead of #13

git-svn-id: trunk@51830 -

components/fpcunit/ide/fpcunitproject1.inc

@@ -1,28 +1,28 @@
 NewSource := 
-    'program FPCUnitProject1;' + #13
-  + #13
-  + '{$mode objfpc}{$H+}' + #13
-  + #13
-  + 'uses' + #13
-  + '  Classes, consoletestrunner;' + #13
-  + #13
-  + 'type' + #13
-  + #13
-  + '  { TLazTestRunner }' + #13
-  + #13
-  + '  TMyTestRunner = class(TTestRunner)' + #13
-  + '  protected' + #13
-  + '  // override the protected methods of TTestRunner to customize its behavior' + #13
-  + '  end;' + #13
-  + #13
-  + 'var' + #13
-  + '  Application: TMyTestRunner;' + #13
-  + #13
-  + 'begin' + #13
-  + '  Application := TMyTestRunner.Create(nil);' + #13
-  + '  Application.Initialize;' + #13
-  + '  Application.Title := ''FPCUnit Console test runner'';' + #13
-  + '  Application.Run;' + #13
-  + '  Application.Free;' + #13
-  + 'end.' + #13
+    'program FPCUnitProject1;' + sLineBreak
+  + sLineBreak
+  + '{$mode objfpc}{$H+}' + sLineBreak
+  + sLineBreak
+  + 'uses' + sLineBreak
+  + '  Classes, consoletestrunner;' + sLineBreak
+  + sLineBreak
+  + 'type' + sLineBreak
+  + sLineBreak
+  + '  { TMyTestRunner }' + sLineBreak
+  + sLineBreak
+  + '  TMyTestRunner = class(TTestRunner)' + sLineBreak
+  + '  protected' + sLineBreak
+  + '  // override the protected methods of TTestRunner to customize its behavior' + sLineBreak
+  + '  end;' + sLineBreak
+  + sLineBreak
+  + 'var' + sLineBreak
+  + '  Application: TMyTestRunner;' + sLineBreak
+  + sLineBreak
+  + 'begin' + sLineBreak
+  + '  Application := TMyTestRunner.Create(nil);' + sLineBreak
+  + '  Application.Initialize;' + sLineBreak
+  + '  Application.Title := ''FPCUnit Console test runner'';' + sLineBreak
+  + '  Application.Run;' + sLineBreak
+  + '  Application.Free;' + sLineBreak
+  + 'end.' + sLineBreak
 ;