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

LCL-GTK2: Futher fixes for TrayIcon. Issue #36199, patch from David.

Browse Source 
git-svn-id: trunk@62124 -
This commit is contained in:
juha 2019-10-26 17:14:21 +00:00
parent f625e656d0
commit a9ffb7fc67
1 changed files with 15 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -260,40 +260,22 @@ var
Initialized: Boolean;
function UnityAppIndicatorInit: Boolean;
var
Module: HModule;
UseAppInd : string;
function NeedAppIndicator: boolean;
var
Module: HModule;
UseAppInd : string;
function NeedAppIndicator: boolean;
var
DeskTop, VersionSt : String;
ProcFile: TextFile;
begin
DeskTop := GetEnvironmentVariableUTF8('XDG_CURRENT_DESKTOP');
// See the wiki for details of what extras these desktops require !!
if (DeskTop = 'Unity')
or (Desktop = 'Enlightenment')
then exit(True);
if (DeskTop = 'GNOME') then begin
{$PUSH}
{$IOChecks off}
AssignFile(ProcFile, '/proc/version');
reset(ProcFile);
if IOResult<>0 then exit(false);
{$POP}
readln(ProcFile, VersionSt);
CloseFile(ProcFile);
if ( (pos('mageia', VersionSt) > 0) or
(pos('Debian', VersionSt) > 0) or
(pos('Red Hat', VersionSt) > 0) or
(pos('SUSE', VersionSt) > 0) )
// 19.04 and earlier Ubuntu Gnome does not need LibAppIndicator3
then exit(True);
end;
Result := False;
end;
DeskTop : String;
begin
DeskTop := GetEnvironmentVariableUTF8('XDG_CURRENT_DESKTOP');
// See the wiki for details of what extras these desktops require !!
if (Desktop = 'GNOME')
or (DeskTop = 'Unity')
or (Desktop = 'Enlightenment')
or (Desktop = 'ubuntu:GNOME') then exit(True);
Result := False;
end;
function TryLoad(const ProcName: string; var Proc: Pointer): Boolean;
begin