浏览代码

* use "open" rather than xterm for poNewConsole on Darwin (patch by
Dmitry Boyarintsev, fixes mantis #14957)

git-svn-id: trunk@14000 -

Jonas Maebe 15 年之前
父节点
当前提交
ab9980967f
共有 1 个文件被更改,包括 4 次插入0 次删除
  1. 4 0
      packages/fcl-process/src/unix/process.inc

+ 4 - 0
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