From a1071a8c5d305644d7e096c9ea466466b135b809 Mon Sep 17 00:00:00 2001
From: jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Sun, 1 Nov 2009 14:53:45 +0000
Subject:   * use "open" rather than xterm for poNewConsole on Darwin (patch by
     Dmitry Boyarintsev, fixes mantis #14957)

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14000 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/fcl-process/src/unix/process.inc | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'packages/fcl-process')

diff --git a/packages/fcl-process/src/unix/process.inc b/packages/fcl-process/src/unix/process.inc
index 80ac6a1410..70cf4f5451 100644
--- a/packages/fcl-process/src/unix/process.inc
+++ b/packages/fcl-process/src/unix/process.inc
@@ -160,6 +160,9 @@ begin
     CommandToList(Cmd,S);
     if poNewConsole in P.Options then
       begin
+      {$ifdef darwin}
+      S.Insert(0,'open');
+      {$else}
       S.Insert(0,'-e');
       If (P.ApplicationName<>'') then
         begin
@@ -172,6 +175,7 @@ begin
         S.Insert(0,'-geometry');
         end;
       S.Insert(0,'xterm');
+      {$endif}
       end;
     if (P.ApplicationName<>'') then
       begin
-- 
cgit v1.2.1