diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-01 14:53:45 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-01 14:53:45 +0000 |
| commit | a1071a8c5d305644d7e096c9ea466466b135b809 (patch) | |
| tree | 040531426de41a6f1dc485d7e881a43dba2049b4 /packages/fcl-process | |
| parent | e126b6225ff13edc0b7f78c91735e582b57bea26 (diff) | |
| download | fpc-a1071a8c5d305644d7e096c9ea466466b135b809.tar.gz | |
* 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
Diffstat (limited to 'packages/fcl-process')
| -rw-r--r-- | packages/fcl-process/src/unix/process.inc | 4 |
1 files changed, 4 insertions, 0 deletions
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 |