mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: RabbitVCS context menu under Qt5

Browse source
This commit is contained in:
Alexander Koblov 2020-01-18 19:20:12 +00:00
commit ebd9f06ba7
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/platform/unix/urabbitvcs.pas
View file

@ -69,7 +69,11 @@ implementation
uses
dbus, fpjson, jsonparser, unix,
uGlobs, uGlobsPaths, uMyUnix, uPython;
uGlobs, uGlobsPaths, uMyUnix, uPython
{$IF DEFINED(LCLQT5)}
, uGObject2
{$ENDIF}
;
const
MODULE_NAME = 'rabbit-vcs';
@ -315,6 +319,9 @@ procedure Initialize;
var
PythonPath: String;
begin
{$IF DEFINED(LCLQT5)}
if g_type_from_name('GtkWidget') <> 0 then Exit;
{$ENDIF}
dbus_error_init(@error);
conn := dbus_bus_get(DBUS_BUS_SESSION, @error);
if CheckError('Cannot acquire connection to DBUS session bus', @error) then
@ -336,9 +343,7 @@ begin
end;
initialization
{$IF NOT DEFINED(LCLQT5)}
RegisterInitialization(@Initialize);
{$ENDIF}
finalization
Finalize;