paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 03:29:41 +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
Konsole = 'konsole';
GNomeTerm = 'gnome-terminal';
DefaultTerminals : Array [1..5] of string
= ('x-terminal-emulator','xterm','aterm','wterm','rxvt');
DefaultTerminals : Array [1..6] of string
= ('x-terminal-emulator','xterm','aterm','wterm','rxvt','xfce4-terminal');
Var
D :String;
@ -153,7 +153,9 @@ begin
begin
If not TestTerminal('aterm') then
TestTerminal('wterm');
end;
end
else if (D='xfce') then
TestTerminal('xfce4-terminal');
end;
if (XTermProgram='') then
TestTerminals(DefaultTerminals)