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

Systray on Unix needs to write user specific file to /tmp

Browse Source
This commit is contained in:
David Bannon 2022-05-06 21:30:21 +10:00
parent 61c79a8db9
commit bbcc02153f
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -149,7 +149,6 @@ type
to load icons for AppIndicator is through files }
const
IconThemePath = '/tmp/appindicators/';
IconType = 'png';
{ It seems to me, and please tell me otherwise if untrue, that you can only
@ -159,6 +158,7 @@ var
GlobalAppIndicator: PAppIndicator;
GlobalIcon: Pointer;
GlobalIconPath: string;
IconThemePath : string;
constructor TUnityTrayIconHandle.Create(TrayIcon: TCustomTrayIcon);
var
@ -188,7 +188,7 @@ begin
if GlobalAppIndicator = nil then
{ It seems that icons can only come from files :( }
GlobalAppIndicator := app_indicator_new_with_path(PChar(FName), PChar(FIconName),
APP_INDICATOR_CATEGORY_APPLICATION_STATUS, IconThemePath);
APP_INDICATOR_CATEGORY_APPLICATION_STATUS, PChar(IconThemePath));
Update;
end;
@ -342,6 +342,8 @@ end;
initialization
GlobalAppIndicator := nil;
GlobalIconPath := '';
IconThemePath := '/tmp/appindicators-' + GetEnvironmentVariable('USER') + '/';
finalization
if FileExists(GlobalIconPath) then
DeleteFile(GlobalIconPath);

6
lcl/interfaces/gtk3/gtk3wstrayicon.pas
View File

@ -55,7 +55,6 @@ uses gtk3objects; // TGtk3Image
const
libappindicator_3 = 'libappindicator3.so.1'; // Unity or Canonical libappindicator3-1
LibAyatanaAppIndicator = 'libayatana-appindicator3.so.1'; // Ayatana - typically called libayatana-appindicator3-1
IconThemePath = '/tmp/appindicators/'; // We must write our icon to a file.
IconType = 'png';
type
@ -76,6 +75,7 @@ type
PAppIndicator = Pointer;
var
IconThemePath : string; // We must write our icon to a file.
{ GlobalAppIndicator creation routines }
app_indicator_get_type: function: GType; cdecl;
app_indicator_new: function(id, icon_name: PGChar; category: TAppIndicatorCategory): PAppIndicator; cdecl;
@ -148,7 +148,7 @@ begin
if GlobalAppIndicator = nil then
{ It seems that icons can only come from files :( }
GlobalAppIndicator := app_indicator_new_with_path(PChar(FName), PChar(FIconName),
APP_INDICATOR_CATEGORY_APPLICATION_STATUS, IconThemePath);
APP_INDICATOR_CATEGORY_APPLICATION_STATUS, PChar(IconThemePath));
Update;
{$ifdef DEBUGAPPIND}
case app_indicator_get_status(GlobalAppIndicator) of
@ -296,6 +296,8 @@ end;
initialization
GlobalAppIndicator := nil;
GlobalIconPath := '';
IconThemePath := '/tmp/appindicators-' + GetEnvironmentVariable('USER') + '/';
finalization
if FileExists(GlobalIconPath) then
DeleteFile(GlobalIconPath);