paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 09:06:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add support for xfce terminal

Browse Source 
git-svn-id: trunk@27588 -
This commit is contained in:
michael 2014-04-16 11:41:24 +00:00
parent 88bea93d60
commit c4e249f643
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-process/src/unix/process.inc
View File

@ -125,8 +125,8 @@ Function DetectXterm : String;
Const Const
Konsole = 'konsole'; Konsole = 'konsole';
GNomeTerm = 'gnome-terminal'; GNomeTerm = 'gnome-terminal';
DefaultTerminals : Array [1..5] of string DefaultTerminals : Array [1..6] of string
= ('x-terminal-emulator','xterm','aterm','wterm','rxvt'); = ('x-terminal-emulator','xterm','aterm','wterm','rxvt','xfce4-terminal');
Var Var
D :String; D :String;
@ -153,7 +153,9 @@ begin
begin begin
If not TestTerminal('aterm') then If not TestTerminal('aterm') then
TestTerminal('wterm'); TestTerminal('wterm');
end; end
else if (D='xfce') then
TestTerminal('xfce4-terminal');
end; end;
if (XTermProgram='') then if (XTermProgram='') then
TestTerminals(DefaultTerminals) TestTerminals(DefaultTerminals)