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

LCL-GTK2: Make TrayIcon.OnClick work for non-Unity desktops. Issue #35983.

Browse Source 
git-svn-id: trunk@61758 -
This commit is contained in:
juha 2019-08-25 19:44:39 +00:00
parent 6cbcc2951b
commit 6d2bdd67a7
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -267,6 +267,11 @@ begin
if Loaded then if Loaded then
Exit(Initialized); Exit(Initialized);
Loaded:= True; Loaded:= True;
if GetEnvironmentVariableUTF8('XDG_CURRENT_DESKTOP') <> 'Unity' then
begin
Initialized := False;
Exit;
end;
if Initialized then if Initialized then
Exit(True); Exit(True);
Module := LoadLibrary(libappindicator_3); // thats the one we want here. Module := LoadLibrary(libappindicator_3); // thats the one we want here.