paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 17:01:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Identify Unity better when supporting its TTrayIcon. Issue #29638.

Browse Source 
git-svn-id: trunk@51600 -
This commit is contained in:
juha 2016-02-12 09:11:21 +00:00
parent 69e99f6102
commit 0e74507516
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk2/unitywsctrls.pas
View File

@ -258,6 +258,13 @@ begin
if Loaded then if Loaded then
Exit(Initialized); Exit(Initialized);
Loaded:= True; Loaded:= True;
if GetEnvironmentVariable('XDG_CURRENT_DESKTOP') <> 'Unity' then
begin
Initialized := False;
Exit;
end;
if Initialized then
Exit(True);
Module := LoadLibrary(libappindicator); Module := LoadLibrary(libappindicator);
if Module = 0 then if Module = 0 then
Exit; Exit;