mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Fly desktop environment

Browse source 
(cherry picked from commit 9f1a98a1b8)
This commit is contained in:
Alexander Koblov 2023-10-23 21:30:45 +03:00
commit d44cf5fe6f
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/platform/unix/umyunix.pas
View file

@ -48,7 +48,8 @@ type
DE_MATE = 5,
DE_CINNAMON = 6,
DE_LXQT = 7,
DE_FLATPAK = 8
DE_FLY = 8,
DE_FLATPAK = 9
);
const
@ -61,6 +62,7 @@ const
'MATE',
'Cinnamon',
'LXQt',
'Fly',
'Flatpak'
);
@ -246,6 +248,8 @@ begin
Exit(DE_MATE);
if Pos('cinnamon', DesktopSession) <> 0 then
Exit(DE_CINNAMON);
if Pos('fly', DesktopSession) <> 0 then
Exit(DE_FLY);
end;
if GetEnvironmentVariable('KDE_FULL_SESSION') <> '' then
Exit(DE_KDE);
@ -253,8 +257,6 @@ begin
Exit(DE_GNOME);
if GetEnvironmentVariable('_LXSESSION_PID') <> '' then
Exit(DE_LXDE);
if fpSystemStatus('pgrep xfce4-session > /dev/null') = 0 then
Exit(DE_XFCE);
end;
function FileIsLinkToFolder(const FileName: String; out LinkTarget: String): Boolean;