瀏覽代碼

* improved KDE detection

git-svn-id: trunk@22324 -
michael 13 年之前
父節點
當前提交
cecc6b778c
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fcl-process/src/unix/process.inc

+ 1 - 1
packages/fcl-process/src/unix/process.inc

@@ -136,7 +136,7 @@ begin
     if (XTermProgram='') then
     if (XTermProgram='') then
       begin
       begin
       D:=LowerCase(GetEnvironmentVariable('DESKTOP_SESSION'));
       D:=LowerCase(GetEnvironmentVariable('DESKTOP_SESSION'));
-      If (D='kde') then
+      If (Pos('kde',D)<>0) then
         begin
         begin
         TestTerminal('konsole');
         TestTerminal('konsole');
         end
         end