Explorar o código

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

git-svn-id: trunk@14000 -

Jonas Maebe %!s(int64=15) %!d(string=hai) anos
pai
achega
ab9980967f
Modificáronse 1 ficheiros con 4 adicións e 0 borrados
  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