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

Merged revision(s) 61758 #6d2bdd67a7 from trunk:

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

git-svn-id: branches/fixes_2_0@61821 -
This commit is contained in:
maxim 2019-09-06 22:37:14 +00:00
parent 0471a9bf67
commit 13996b69ce
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
Exit(Initialized);
Loaded:= True;
if GetEnvironmentVariableUTF8('XDG_CURRENT_DESKTOP') <> 'Unity' then
begin
Initialized := False;
Exit;
end;
if Initialized then
Exit(True);
Module := LoadLibrary(libappindicator_3); // thats the one we want here.